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