Series.HasLeaderLines (Word)

Cette propriété a la valeur True si la série possède des lignes d'étiquettes.

Cette propriété ne s'applique qu'aux graphiques en secteurs.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.SeriesCollection(1) 
 .HasDataLabels = True 
 .DataLabels.Position = xlLabelPositionBestFit 
 .HasLeaderLines = True 
 .LeaderLines.Border.ColorIndex = 5 
 End With 
 End If 
End With