Excel VBA（Microsoft 365）数据透视图系列名称修改失效求助

为什么直接修改Series.Name无效？ #

数据透视图的系列名称是绑定到数据透视表的字段/行/列标签的，并非独立可随意修改的属性。你直接给ActiveChart.FullSeriesCollection(1).Name赋值时，VBA不会抛出错误，但透视图会立刻从关联的数据源同步原有名称，所以MsgBox显示的还是旧名称。

可行解决方案 #

方案1：修改数据透视表的字段名称（推荐，永久生效） #

这是最根本的解决方式，因为透视图的系列名称会自动跟随透视表的字段名变化：

Private Sub Worksheet_Activate()
    Dim pvtTable As PivotTable
    Dim chartObj As ChartObject
    
    ' 获取透视图关联的数据透视表（替换成你实际的透视表名称）
    Set pvtTable = ActiveSheet.PivotTables("PivotTable1")
    ' 获取目标透视图对象
    Set chartObj = ActiveSheet.ChartObjects("Graph_1")
    
    ' 修改透视表中对应字段的显示名称（替换成你的旧字段名）
    pvtTable.PivotFields("旧字段名").Caption = "NewSeriesName"
    
    ' 刷新透视表确保同步
    pvtTable.RefreshTable
    
    ' 验证修改结果
    MsgBox chartObj.Chart.FullSeriesCollection(1).Name
End Sub

方案2：将透视图转换为普通图表（静态场景适用） #

如果不需要透视图的动态筛选、更新功能，可以把它转成普通图表，之后就能自由修改系列名称：

Private Sub Worksheet_Activate()
    Dim chartObj As ChartObject
    Set chartObj = ActiveSheet.ChartObjects("Graph_1")
    
    ' 转换为普通图表（此操作会断开与透视表的关联）
    chartObj.Chart.ChartType = chartObj.Chart.ChartType
    
    ' 现在可以直接修改系列名称
    chartObj.Chart.FullSeriesCollection(1).Name = "NewSeriesName"
    
    MsgBox chartObj.Chart.FullSeriesCollection(1).Name
End Sub

注意：转换后图表不再随数据透视表更新，仅适合静态数据展示场景。

方案3：临时覆盖系列名称（刷新透视表后失效） #

如果只需要临时显示自定义名称，且能接受透视表刷新后名称还原，可以用此方法：

Private Sub Worksheet_Activate()
    Dim chartObj As ChartObject
    Set chartObj = ActiveSheet.ChartObjects("Graph_1")
    
    ' 临时修改系列名称（仅当前显示生效，透视表刷新后会恢复原名）
    chartObj.Chart.SeriesCollection(1).Name = "NewSeriesName"
    
    MsgBox chartObj.Chart.SeriesCollection(1).Name
End Sub

内容的提问来源于stack exchange，提问作者Tom