powerpoint中斷鏈接通過excel vba

我想通過使用VBA腳本通過Excel更新嵌入式圖表的PowerPoint演示文稿。這適用於我的代碼。問題是，我還希望 - 更新圖表後 - 打破/刪除指向Excle工作表的鏈接。powerpoint中斷鏈接通過excel vba

該代碼示例顯示我的代碼也與不工作的行。

任何建議或解決方案將不勝感激！

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

來源

2012-12-12 Philip

該編譯器自動完成的.BreakLinks命令，當你鍵入它？您是否已激活此項目中的Powerpoint參考（Microsoft Powerpoint xx.x對象庫）？後者有時被遺忘，因爲許多功能也在Office庫中，但並非全部... –

是的，它是自動完成的。但是在執行這條線時會出現一條失敗信息。 Powerpoint參考也被激活。 – Philip

你能否也請在你的問題中發佈失敗信息。要知道確切的問題，社區可以解決它！ –

感謝您的答案。

我想我已經解決了這個問題：breakline命令的語法是錯誤的。我必須解決的幻燈片，並直接形狀：

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

來源

2012-12-12 14:07:48 Philip

powerpoint中斷鏈接通過excel vba

回答

相關問題