Shape.Ellipse

Property Ellipse As Ellipse

Member of Shape

The Ellipse property returns an Ellipse object that represents the properties of an ellipse shape.

The Ellipse property returns a read-only value.

The following code example converts all ellipses on the current page into pies:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrEllipseShape Then 
   With s.Ellipse 
    .StartAngle = 0 
    .EndAngle = 90 
    .Clockwise = True 
    .Type = cdrPie 
   End With 
  End If 
 Next s 
End Sub