Chart.GapDepth (Word)

Returns or sets the distance, as a percentage of the marker width, between the data series in a 3D chart.

The value of this property must be between 0 and 500.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.GapDepth = 200 
 End If 
End With