Series.LeaderLines (Word)
Retorna as linhas tracejadas da série. LeaderLines somente leitura.
Esta propriedade só se aplica a gráficos de pizza.
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