ActiveChart.SeriesCollection.Count で グラフ系列の数
ActiveChart.SeriesCollection.Count
よく見かける
.Count
でChartのSeries数がわかりそうです
Option Explicit Sub bbb() Dim n As Integer Debug.Print "コレクションの数:" & ActiveChart.SeriesCollection.Count For n = 1 To ActiveChart.SeriesCollection.Count Debug.Print ".Name=" & ActiveChart.SeriesCollection(n).Name Next End Sub
解決のヒントとなれば幸いです。