如何重命名与独立Pivot Chart关联的底层Pivot Table？

要修改独立（非由现有数据透视表生成）透视图关联的底层数据透视表名称，可通过VBA直接操作透视图关联的透视表对象，步骤如下：

• 定位目标透视图并获取其关联的底层透视表对象：

  ' 声明变量
  Dim targetChart As ChartObject
  Dim linkedPivot As PivotTable
  
  ' 绑定目标透视图（替换为你的透视图名称）
  Set targetChart = ActiveSheet.ChartObjects("Chart 1")
  ' 获取关联的底层透视表
  Set linkedPivot = targetChart.Chart.PivotTable
  

• 直接修改透视表的Name属性：

  ' 设置新的透视表名称（替换为你想要的名称）
  linkedPivot.Name = "CustomPivotTable"
  

修改完成后，即可用新名称执行刷新操作：

ActiveSheet.PivotTables("CustomPivotTable").PivotCache.Refresh

补充说明 #

独立透视图的底层透视表默认处于隐藏状态，但通过Chart.PivotTable属性仍能直接访问并修改它的属性（包括名称）。修改后可通过ActiveSheet.PivotTables集合查看所有透视表，确认新名称已生效。

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