expression.LightNormal
expression Required. An expression that returns a ChChart object.
Remarks
Setting this property to 0 results in a flat look for your chart, while setting this property to 0.5 yields a more three-dimensional look.
Example
This example converts the first chart in Chartspace1 to a 3-D Column chart and then sets the LightNormal property of the chart.
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
cht3DColumn.LightNormal = 0.8
End Sub