AutoShapeType Property Example

This example replaces all 16-point stars with 32-point stars in myDocument.

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.AutoShapeType = msoShape16pointStar Then
        s.AutoShapeType = msoShape32pointStar
    End If
Next