通过 excel vba 断开链接的 powerpoint答案

【问题标题】：powerpoint breaking links via excel vba通过 excel vba 断开链接的 powerpoint
【发布时间】：2012-11-30 04:20:54
【问题描述】：

我正在尝试使用 VBA 脚本通过 Excel 更新带有嵌入图表的 PowerPoint 演示文稿。这适用于我的代码。问题是我还希望 - 在图表更新后 - 断开/删除指向 Excle 工作表的链接。

代码示例还显示了我的代码以及不起作用的行。

任何建议或解决方案将不胜感激！

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

【问题讨论】：

当您键入 .BreakLinks 命令时，编译器会自动完成它吗？您是否激活了此项目中的 powerpoint 参考（Microsoft Powerpoint xx.x 对象库）？后者有时会被遗忘，因为很多功能也在 Office 库中，但不是全部......
是的，它是自动完成的。但是在执行过程中有一条关于这条线的失败消息。 Powerpoint 参考也被激活。
您能否在您的问题中也发布失败消息。知道确切的问题使社区能够解决它！

标签： excel vba hyperlink powerpoint

【解决方案1】：

感谢您的回答。

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

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

【讨论】：