如何使用 VBA 更改 PowerPoint 的嵌入图表链接？答案

【问题标题】：How do I use VBA to change a PowerPoint's embedded chart links?如何使用 VBA 更改 PowerPoint 的嵌入图表链接？
【发布时间】：2019-07-25 15:12:04
【问题描述】：

我有一个充满嵌入式图表的 PowerPoint 模板，我想使用 VBA 将图表的链接从模板 excel 文件更改为客户的 excel 文件。我正在从客户端的 excel 文件中运行 VBA 脚本（启用了 PowerPoint 参考库）。

在脚本中，我尝试将每个 PowerPoint 图表的 Chart.ChartData.Workbook 属性重新分配给客户的工作簿。

pptShape.Chart.ChartData.Workbook = ThisWorkbook

当我运行它时没有出现错误消息，但是当我单击文件->信息->编辑链接时，没有任何图表链接被更改。我该如何解决这个问题，或者我能做些什么呢？请不要建议将图表更改为嵌入图表以外的其他内容；我必须将它们保留为嵌入式图表。

【问题讨论】：

【解决方案1】：

图表是嵌入的或链接的。假设它们是链接的，则语句需要看起来更像这样：

pptShape.LinkFormat.SourceFullName = Replace(LCase _
(pptShape.LinkFormat.SourceFullName), LCase(oldFilePath), newFilePath)

取自此页面，这是关于此主题的整篇文章：Edit links in PowerPoint using VBA。这是 MS 参考页面：LinkFormat.SourceFullName property (PowerPoint)

【讨论】：