ExtrudeAngle Property

expression.ExtrudeAngle

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 projection mode of the chart.

Sub SetExtrudeAngle()

    Dim cht3DColumn
    Dim chConstants

    Set chConstants = Chartspace1.Constants

    ' 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 projection mode to orthographic.
    cht3DColumn.ProjectionMode = chConstants.chProjectionModeOrthographic

    ' Set the extrusion angle.
    cht3DColumn.ExtrudeAngle = 75

End Sub