Chart.DepthPercent (Word)

Returns or sets the depth of a 3D chart as a percentage of the chart width (between 20 and 2000 percent).

This property applies only to 3D charts.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 Chart.DepthPercent = 50 
 End If 
End With