'指定した系列の「名前」
Debug.Print ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Name
'「全て」の系列の名前を取得'「For」を使う場合
For i = 1 To ActiveSheet.ChartObjects(1).Chart.SeriesCollection.Count
Debug.Print ActiveSheet.ChartObjects(1).Chart.SeriesCollection(i).Name '名前を取得
Next
'「For Each」を使う場合
For Each a In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
Debug.Print a.Name '名前を取得
Next
Sub TEST1()
'「1つ目」のグラフの「1つ目」の系列の「名前」
Debug.Print ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Name
End Sub
グラフを用意しておきます。
グラフを用意
では、VBAコードを実行してみます。
「系列名」を取得
結果は、「大阪」となりました。
「系列名」を取得できています。
ループしてすべての系列名を取得する
ループしてすべての系列名を取得してみます。
「For」を使う方法と「For Each」を使う方法があります。
オブジェクトのイメージがつくのであれば、「For Each」の方が簡単です。
「For」を使って取得
「For」を使って全ての系列名を取得してみます。
Sub TEST2()
'「1つ目」のグラフの系列をループ
For i = 1 To ActiveSheet.ChartObjects(1).Chart.SeriesCollection.Count
Debug.Print ActiveSheet.ChartObjects(1).Chart.SeriesCollection(i).Name '名前を取得
Next
End Sub
グラフを用意しておきます。
グラフを用意
では、VBAコードを実行してみます。
「For」で「すべて」の系列を取得
「For」で「すべて」の系列を取得できました。
「For Each」を使って取得
次は、「ForEach」を使ってすべての系列名を取得してみます。
Sub TEST3()
'「1つ目」のグラフの系列をループ
For Each a In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
Debug.Print a.Name '名前を取得
Next
End Sub