Ellipse.StartAngle

Property StartAngle As Double

The StartAngle property returns or sets the start angle of an arc or pie.

The following code example sets the start angle of the pie or arc to be 90?greater than its end angle (making sure that the angle does not exceed the limit of 360?:

Sub Test() 
 Dim s As Shape 
 Dim a As Double 
 Set s = ActiveShape 
 If s.Type = cdrEllipseShape Then 
  a = s.Ellipse.EndAngle + 90 
  If a >= 360 Then a = a - 360 * Fix(a / 360) 
  s.Ellipse.StartAngle = a 
 End If 
End Sub