Series.BarShape (Word)

Returns or sets the shape used for a single series in a 3D bar or column chart. Possible return values are 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.SeriesCollection(1).BarShape = xlConeToPoint 
 End If 
End With