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 sEnd Sub