Series.ApplyPictToEnd (Word)

Cette propriété a la valeur True si une image est appliquée à l'extrémité du point ou de tous les points de la série.

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