Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrPolygonShape Then If s.Polygon.Type = cdrPolygon And s.Polygon.Sides > 4 Then s.Polygon.Type = cdrStar s.Polygon.Sharpness = 1 End If End If Next s End Sub