我希望有人可以幫到....Powerpoint VBA從Excel切換回powerpoint
我有一個powerpoint演示文稿,它鏈接了excel文件中的表格和圖形。幻燈片的更新設置爲手動。
我在Powerpoint中創建了一個打開excel文件的VBA代碼。我試圖通過VBA更新PowerPoint中的鏈接,而不是手動選擇每個鏈接元素並更新值。雖然我的VBA代碼的第一部分在打開excel文件時起作用,但鏈接並沒有被更新,我認爲這不是更新鏈接的重點,所以我試圖在我的VBA代碼中加入線將回到PowerPoint演示文稿,之後我假設線更新鏈接將工作(高興地被糾正)。下面是我迄今爲止建立的代碼....我的評論以粗體顯示...
有什麼建議嗎? 僅供參考,我使用Office 2007的
感謝
上述Sub test()
Dim xlApp As Object
Dim xlWorkBook As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Open("File location\filename.xlsm", True, False)
Set xlApp = Nothing
Set xlWorkBook = Nothing
部分打開包含
On Error Resume Next
With GetObject(, "PowerPoint.Application")
.ActivePresentation.SlideShowWindow.Activate
End With
上文第一節希望鏈接的表格和圖表Excel文件會打開excel文件後回到powerpoint,但它不是這是爲什麼我認爲下面的代碼來更新鏈接不起作用
ActivePresentation.UpdateLinks
End Sub
感謝您的回覆。如果我沒有弄錯,你上面的代碼會從excel中調用powerpoint,所以這段代碼需要在excel中。然而,我所提供的代碼是以powerpoint打開excel文件的,但是之後我需要返回代碼運行的簡報。希望更清楚。 – Morph314
@ Morph314 - 歡迎。你設法做到了嗎? – Vityata
抱歉,不,我的回覆是在我完成之前發佈的。 – Morph314