BarShape Property Example
This example sets the shape used with series one on chart one.
Charts(1).SeriesCollection(1).BarShape = xlConeToPoint