Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrEllipseShape Then If s.Ellipse.Type = cdrArc Then s.Ellipse.Type = cdrPie s.Fill.UniformColor.RGBAssign 255, 0, 0 End If Next s End Sub