In diesem Beispiel wird eine neue Datenreihe in Chart1 erstellt. Die Datenquelle ist der Bereich "B1:B10" in Sheet1.
Charts("Chart1").SeriesCollection.Add _ Source:=ActiveWorkbook.Worksheets("Sheet1").Range("B1:B10")
In diesem Beispiel wird eine neue Datenreihe in dem eingebetteten Diagramm in Sheet1 erstellt.
Worksheets("Sheet1").ChartObjects(1).Activate ActiveChart.SeriesCollection.Add _ Source:=Worksheets("Sheet1").Range("B1:B10")