Series.ApplyPictToSides (Word)

True, wenn den Seiten des Punktes oder aller Punkte der Datenreihe eine Grafik zugeordnet wird.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection(1).ApplyPictToSides = True 
 End If 
End With