Rectangle.EqualCorners

Property EqualCorners As Boolean

The EqualCorners property returns True if all four corners of the rectangle have the same corner radius (if any at all).

The EqualCorners property returns a read-only value.

The following code example checks all rectangles on the current page and makes sure that all corners of a rectangle are equal. If all corners are not equal, it applies the radius of the smallest corner in each rectangle.

Sub Test() 
 Dim s As Shape 
 Dim r As Rectangle 
 Dim d As Long 
 For Each s In ActivePage.FindShapes(Type:=cdrRectangleShape) 
  Set r = s.Rectangle 
  If Not r.EqualCorners Then 
   d = r.CornerLowerLeft 
   If d > r.CornerLowerRight Then d = r.CornerLowerRight 
   If d > r.CornerUpperLeft Then d = r.CornerUpperLeft 
   If d > r.CornerUpperRight Then d = r.CornerUpperRight 
   r.SetRoundness d 
  End If 
 Next s 
End Sub