AutoShapeType Property Example
This example replaces all 16-point stars with 32-point stars in myDocument
.
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.AutoShapeType = msoShape16pointStar Then
s.AutoShapeType = msoShape32pointStar
End If
Next