Series.BarShape (Word)

Devuelve o establece la forma utilizada para una sola serie en un gráfico de barras o columnas 3D. Posibles valores de retorno son xlBox - Un cuadro, xlConeToMax - Un cono truncado en el valor especificado, xlConeToPoint - Un cono que incide en un punto en el valor especificado, xlCylinder - Un cilindro, xlPyramidToMax - Una pirámide truncada en el valor especificado, xlPyramidToPoint - Una pirámide que incide en un punto en el valor especificado.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection(1).BarShape = xlConeToPoint 
 End If 
End With