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

Question

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

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

pptShape.Chart.ChartData.Workbook = ThisWorkbook

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

Answer 1

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

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

从此页面摘录的是有关该主题的整篇文章：Edit links in PowerPoint using VBA。这是MS参考页：LinkFormat.SourceFullName property (PowerPoint)