Sub Test() If ActiveShape.Type <> cdrRectangleShape Then Exit Sub With ActiveShape.Rectangle .RadiusLowerLeft = 0.1 .RadiusLowerRight = 0.2 .RadiusUpperLeft = 0.3 .RadiusUpperRight = 0.4 End With End Sub