excel - 複数のグラフを反復処理する方法

Question

いくつかのチャートのプロパティを 1 つずつ反復して変更する必要がありますが、そのためにActiveChart例を使用します。

   Target_str = ActiveChart.SeriesCollection(2).DataLabels.Item(1).Caption
   Target = CDbl(Target_str)

チャートをアクティブにするために、チャートを 1 つずつ選択します。

    For i = 1 To ActiveWorkbook.Sheets(2).ChartObjects.Count
        ActiveWorkbook.Sheets(2).ChartObjects(i).Chart.Select
    '...
    Next i

しかし、デバッグで次のメッセージが表示されます。

Run-time error '1004':
Unable to get the Select property of the Chart class

これらのチャートを 1 つずつアクティブにするにはどうすればよいですか。上記のコードで間違っていることは何ですか。他の代替手段を使用できますか?

Answer 1

これはどうですか？

ActiveWorkbook.Sheets(2).ChartObjects(i).Select