expression.GapDepth
expression Required. An expression that returns a ChChart object.
Remarks
Setting this property to a value of 100 results in the gaps that are the same thickness as the data series series.
Example
This example converts the first chart in Chartspace1 to a 3-D Column chart and then sets the gap depth 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
' Set the gap depth.
cht3DColumn.GapDepth = 75
End Sub