工作表

Question

我通过每一个图表上一个工作表试图循环中的所有图表更改系列的名称，并重新命名第三系列：

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

但图表对象似乎不具有的SeriesCollection对象我无法弄清楚如何去实现它。什么是正确的方法来做到这一点？

Answer 1

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

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