工作表

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