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