更改多个图表系列标签

Question

我在不同的纸张上有大约50张图表。每个图表显示时间序列为系列1，其趋势为系列2，它们标记为系列1和系列2.

有什么方法可以将系列1更改为图表工作表名称，系列2更改为＆＃34;趋势＆＃34;所有床单？

非常感谢！

Answer 1

我认为这会对你有所帮助：

Sub UpdateCharts()
    For Each s In ThisWorkbook.Sheets
        For Each c In s.ChartObjects
            c.Activate
            ActiveChart.FullSeriesCollection(1).Name = s.Name
            ActiveChart.FullSeriesCollection(2).Name = "=""Trend"""
        Next
    Next
End Sub