In diesem Beispiel werden der ersten Datenreihe des Kreisdiagramms Datenbeschriftungen und blaue Führungslinien hinzugefügt.
With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1) .HasDataLabels = True .DataLabels.Position = xlLabelPositionBestFit .HasLeaderLines = True .LeaderLines.Border.ColorIndex = 5 End With