如何遍历多个图表答案

【问题标题】：How to iterate through multiples charts如何遍历多个图表
【发布时间】：2013-06-18 08:27:40
【问题描述】：

我需要一一迭代和修改某些图表的属性，但为此我使用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

我怎样才能让这些图表一一激活，我在上面的代码中做错了什么。我可以使用其他替代方案吗？

【问题讨论】：

与其尝试激活图表，不如直接使用它。例如。 Set cht=ActiveSheet.ChartObjects(1).Chart。然后你可以使用With cht....End With 来执行你的格式化。

【解决方案1】：

这个呢？

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

【讨论】：