Series.BarShape (Excel)

Returns or sets the shape used with the 3D bar or column chart. Possible return values are xlBox - Box, xlConeToMax - Cone, truncated at value, xlConeToPoint - Cone, coming to point at value, xlCylinder - Cylinder, xlPyramidToMax - Pyramid, truncated at value, xlPyramidToPoint - Pyramid, coming to point at value.

ActiveChart.FullSeriesCollection(1).BarShape = xlBox