Perspective Property

       

MsoTrue if the extrusion appears in perspective — that is, if the walls of the extrusion narrow toward a vanishing point. MsoFalse if the extrusion is a parallel, or orthographic, projection — that is, if the walls don't narrow toward a vanishing point. Read/write MsoTriState.

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

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