更改工作表上所有图表中的系列名称

Question

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

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

但Chart对象似乎没有一个seriesCollection对象，我无法弄清楚如何到达它。这样做的正确方法是什么？

Answer 1

实际上是在循环使用ChartObjects，而不是图表。尝试：

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