1

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

実際には、チャートではなく、チャートオブジェクトをループしています。試す：

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