Excel 如何迭代多次图表

我需要逐一迭代和修改一些图表的属性，但为此我使用

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

如何使这些图表一个接一个地处于活动状态，我在上面的代码中做错了什么。 我可以使用其他替代方案吗

这个怎么样

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

---

与其尝试激活图表，您可以直接使用它。例如，

Set cht=ActiveSheet.ChartObjects（1.Chart

）。然后您可以将

与cht一起使用…以

结束以执行格式化。