This example sets the extrusion depth for shape one on myDocument
to 100 points and specifies that the extrusion be parallel, or orthographic.
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
.Visible = True
.Depth = 100
.Perspective = False
End With