Series.BarShape (Word)

Gibt die Form zurück, die für eine einzelne Datenreihe in einem 3D-Balken-oder Säulendiagramm verwendet wird, oder legt diese fest. Mögliche Rückgabewerte sind xlBox, xlConeToMax - Ein Kegel, der am angegebenen Wert abgeschnitten wird, xlConeToPoint - Ein Kegel, der am angegebenen Wert einen Punkt erreicht, xlCylinder - Ein Zylinder, xlPyramidToMax - Eine Pyramide, die am angegebenen Wert abgeschnitten wird, xlPyramidToPoint - Eine Pyramide, die am angegebenen Wert einen Punkt erreicht.

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