This example adds three identical extruded ovals to myDocument
and sets their rotation around the y-axis to – 30, 0, and 30 degrees, respectively.
Set myDocument = ActiveDocument
With myDocument.Shapes
With .AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
.Visible = True
.RotationY = -30
End With
With .AddShape(msoShapeOval, 30, 70, 50, 25).ThreeD
.Visible = True
.RotationY = 0
End With
With .AddShape(msoShapeOval, 30, 110, 50, 25).ThreeD
.Visible = True
.RotationY = 30
End With
End With