Series.ApplyPictToSides (Word)
Cette propriété a la valeur True si une image est appliquée aux côtés du point ou de tous les points de la série.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
.Chart.SeriesCollection(1).ApplyPictToSides = True
End If
End With