expression.AspectRatio
expression Required. An expression that returns a ChChart object.
Remarks
This property has no effect on a 3-D Pie chart. Use the Thickness property to increase the thickness of a 3-D Pie chart.
Example
This example converts the first chart in Chartspace1 to a 3-D Column chart and then increases the width and depth of the chart.
Sub Format3DDepthWidth()
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
' Increase the depth of the chart in relation
' to it's width.
cht3DColumn.ChartDepth = 125
' Increase the width of the chart in relation
' to it's height.
cht3DColumn.AspectRatio = 80
End Sub