Sub Test() Dim s As Shape Set s = ActiveSelection.Shapes(1) If s.Type = cdrEllipseShape Then With s.Ellipse .StartAngle = 0 .EndAngle = 90 .Clockwise = True .Type = cdrPie End With End IfEnd Sub