如何为PowerPoint中的活动图表指定特定数据源

首先，ActiveChart.SetSourceData方法完全可行，但你的代码存在几个关键问题需要修正——PPT的VBA环境默认不直接识别Excel对象，必须明确引用目标工作簿和工作表才能正确关联数据源。

修正后的完整VBA代码 #

' 声明Excel对象变量，避免PPT与Excel对象混淆
Dim xlApp As Object
Dim xlWB As Object
Dim pivotSheet As Object

' 获取已打开的Excel应用实例（假设仅一个Excel实例运行）
Set xlApp = GetObject(, "Excel.Application")
' 指定目标工作簿（替换为你的xlsm文件名，比如"数据报表.xlsm"）
Set xlWB = xlApp.Workbooks("你的工作簿名称.xlsm")
' 定位到pivot工作表
Set pivotSheet = xlWB.Sheets("pivot")

' 添加新幻灯片
Set NewSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, 11)

' 创建饼图并绑定指定数据源
Set myChart = NewSlide.Shapes.AddChart2(250, xlPie).Chart ' AddChart2兼容新版本Office
With myChart
    .SetSourceData Source:=pivotSheet.Range("A2:B7"), PlotBy:=xlColumns
    .HasTitle = False
    ' 可选：自定义饼图样式，示例为简洁样式
    .ChartStyle = 26
End With

' 释放对象，避免内存泄漏
Set pivotSheet = Nothing
Set xlWB = Nothing
Set xlApp = Nothing

关键修改说明 #

• 明确Excel对象引用：PPT的VBA无法直接调用Sheets，必须通过GetObject获取运行中的Excel实例，再定位到目标工作簿和pivot工作表，彻底避免对象上下文混乱。
• 替换ActiveChart为对象变量：直接使用创建图表时返回的myChart对象，比依赖ActiveChart更稳定，防止因窗口焦点变化导致的错误。
• 删除无效的Location方法：ActiveChart.Location是Excel专属方法，在PPT中调用会触发错误，直接移除即可。
• 使用AddChart2：比旧版AddChart支持更多图表样式，兼容Office 2013及以上版本。

其他非VBA实现方法 #

如果不需要代码自动化，也可以手动完成关联：

• 粘贴链接：复制Excel中pivot表的A2:B7区域，在PPT新幻灯片中右键选择「选择性粘贴」->「粘贴链接」，再选择饼图格式，后续Excel数据更新时PPT图表会自动同步。
• Power Query联动：在Excel中将pivot表数据导入Power Query，再将处理后的数据导入PPT作为数据源，支持一键刷新数据。

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