SetThreeDFormat Method Example
This example adds an oval to myDocument
and sets its extrusion format to 3D Style 12.
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeOval, _
30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormat msoThreeD12
End With