Anzahl der Graphen eines Diagrammes 01.06.2002

So ermitteln Sie die Anzahl der Graphen eines Diagrammes:
ActiveSheet.ChartObjects("Diagramm 1").Activate
s = ActiveChart.SeriesCollection.Count
For x = 1 To s
   ActiveChart.SeriesCollection(x).Border.ColorIndex = 1
Next x