VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur PresetExtrusionDirection-Eigenschaft

In diesem Beispiel wird jede Projektion in myDocument, die sich zur oberen linken Ecke der Vorderseite der Projektion ausdehnt, in eine Projektion geändert, die sich zur unteren linken Ecke der Vorderseite ausdehnt.

Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
    With s.ThreeD
        If .PresetExtrusionDirection = msoExtrusionTopLeft Then
            .SetExtrusionDirection msoExtrusionBottomRight
        End If
    End With
Next