VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur AutoShapeType-Eigenschaft

In diesem Beispiel werden in myDocument alle Sterne mit 16 Punkten durch Sterne mit 32 Punkten ersetzt.

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