如何遍历多个图表

Question

我需要逐个迭代和修改某些图表的属性，但为此我使用ActiveChart ex。：

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

为了激活我的图表，我尝试逐一选择它们：

    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

如何逐个激活这些图表，我在上面的代码中做错了什么。 我可以使用其他替代品吗？

Answer 1

这个怎么样？

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