1

我正在尝试遍历单个工作表上的每个图表并重命名第 3 个系列:

With Sheets("Actual Traded Points")
    For Each Chart In .ChartObjects
        Chart.SeriesCollection(3).name = "Actual Traded Points"
    Next Chart
End With

但是 Chart 对象似乎没有 seriesCollection 对象,我无法弄清楚如何获得它。这样做的正确方法是什么?

4

1 回答 1

3

您实际上是在循环通过 ChartObjects,而不是 Charts。尝试:

For Each co In .ChartObjects
    co.Chart.SeriesCollection(3).name = "Actual Traded Points"
Next co
于 2012-10-25T14:00:55.327 回答