0

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

   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

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

4

1 回答 1

1

那这个呢？

ActiveWorkbook.Sheets(2).ChartObjects(i).Select
于 2013-06-18T13:12:22.750 回答