Chart.BarShape procedure builder

Chart.BarShape (Word)

Returns or sets the shape used for every series in a 3D bar or column chart.

xlBox - A box, xlConeToMax - A cone, truncated at the specified value, xlConeToPoint - A cone, coming to a point at the specified value, xlCylinder - A cylinder, xlPyramidToMax - A pyramid, truncated at the specified value, xlPyramidToPoint - A pyramid, coming to a point at the specified value.
With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.BarShape = xlConeToPoint 
 End If 
End With