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