expression.Rotation
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 rotates the chart 145 degrees.
Sub SetGapDepth()
Dim cht3DColumn As ChChart
' 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 = chChartTypeColumn3D
' Rotate the chart.
cht3DColumn.Rotation = 145
End Sub