VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur RotationX-Eigenschaft

In diesem Beispiel werden in myDocument drei identische projizierte Ellipsen eingefügt und für ihre Drehung um die X-Achse ein Wert von -30, 0, bzw. 30 Grad festgelegt.

Set myDocument = Worksheets(1)
With myDocument.Shapes
    With .AddShape(msoShapeOval, 30, 60, 50, 25).ThreeD
        .Visible = True
        .RotationX = -30
    End With
    With .AddShape(msoShapeOval, 90, 60, 50, 25).ThreeD
        .Visible = True
        .RotationX = 0
    End With
    With .AddShape(msoShapeOval, 150, 60, 50, 25).ThreeD
        .Visible = True
        .RotationX = 30
    End With
End With