expression.Perspective
expression Required. An expression that returns a ChChart object
Example
This example converts the first chart in Chartspace1 to a 3-D Column chart and then sets the perspective for the chart.
Sub SetPerspective()
Dim cht3DColumn
' Set a variable to the first chart in Chartspace1.
Set cht3DColumn = ChartSpace1.Charts(0)
' Change the chart to a 3-D Column chart.
cht3DColumn.Type = chChartTypeColumnClustered3D
' Set the perspective.
cht3DColumn.Perspective = 35
End Sub