Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrPolygonShape Then s.Polygon.Sides = 5 s.Polygon.Type = cdrStar End If Next sEnd Sub