Rectangle.RadiusUpperRight

Property RadiusUpperRight As Double

The RadiusUpperRight property returns or sets the radius of a rectangle’s upper-right corner.

The radius is measured in document units and is not relative to the size of the rectangle.

The following code example rounds the corners of the selected rectangle by specifying a different corner radius (0.1", 0.2", 0.3", and 0.4") for each corner:

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