Perspective Property

expression.Perspective

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example sets the extrusion depth for shape one on the first page to 100 points and specifies that the extrusion be parallel, or orthographic. For this example to work, the specified shape must be a 3-D shape.

Sub ChangePerspective()
    With ActiveDocument.Pages(1).Shapes(1).ThreeD
        .Visible = True
        .Depth = 100
        .Perspective = msoFalse
    End With
End Sub