AspectRatio Property

Returns or sets a Long specifying the ratio of height to the width of the specified three-dimensional chart. Setting this property to a value greater than 100 will make a chart which is taller than it is wide, while a value less than 100 will make a chart wider than it is tall. Valid settings range from 0 to 500. Read/write.

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