Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrRectangleShape Then s.Rectangle.SetRoundness 30 End If Next sEnd Sub