Sub Test() Dim s As Shape Const r As Double = 0.5 For Each s In ActivePage.FindShapes(Type:=cdrRectangleShape) If s.Rectangle.MaxRadius >= r Then s.Rectangle.SetRadius r End If Next sEnd Sub