通过Excel VBA断开PowerPoint中的链接

Question

我正在尝试使用VBA脚本通过Excel更新嵌入的图表来更新PowerPoint演示文稿。我的代码可以正常工作。问题是，我希望在更新图表后，还能断开/删除与Excel工作表的链接。以下是代码示例，其中包含一行无法运行的代码。

如有建议或解决方案，将不胜感激！

Function RefreshPPT()
Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
PPT.Presentations.Open "Name.pptx", Untitled:=msoTrue
PPT.ActivePresentation.UpdateLinks
PPT.ActivePresentation.BreakLinks ------ this line doesn´t work
PPT.ActivePresentation.SaveAs Filename:="Name2.pptx"
PPT.Quit
Set PPT = Nothing
End Function

- Philip

---

编译器在您输入.BreakLinks命令时是否自动完成？您是否在此项目中激活了PowerPoint引用（Microsoft PowerPoint xx.x对象库）？后者有时会被忘记，因为很多功能也在Office库中，但并非全部... - K_B

是的，它是自动完成的。但在执行过程中，关于这行代码会出现失败消息。Powerpoint 引用也已激活。 - Philip

你能否在问题中附上失败信息？了解确切的问题可以帮助社区解决它！ - K_B

Answer 1

感谢您的答案。

我认为我已经解决了问题：换行命令的语法是错误的。我必须直接处理幻灯片和形状：

PPT.ActivePresentation.Slides(i).Shapes(s).LinkFormat.BreakLink

- Philip