通過宏重新啟動 PowerPoint 演示文稿

Question

Powerpoint-Presentation 同時在兩台設備上運行。 因此，其中一種演示文稿處於只讀模式。 我想要一個宏，它以只讀模式更新演示文稿，以便應用演示文稿（寫模式）上的更改。 宏將通過按鈕手動啟動。

我已經嘗試編寫一個重新啟動演示文稿的宏，但沒有成功。

Sub Prog()

Dim DestinationPPT As String
Dim PowerPointApp As PowerPoint.Application
Dim myPresentation As PowerPoint.Presentation

Set PowerPointApp = CreateObject("PowerPoint.Application")
DestinationPPT = "xxx.ppsm"

Set myPresentation = PowerPointApp.Presentations.Open(DestinationPPT)

myPresentation.SlideShowSettings.Run

Application.Quit

End Sub

似乎命令Application.Quit正在關閉打開的兩個演示文稿。

Answer 1

您需要關閉某個文件而不是整個應用程序。

Dim PPTFile As Object
Set PPTFile = CreateObject("PowerPoint.Application").Presentations.Open(DestinationPPT)
PPTFile.Close

使用File.Close而不是Application.Quit

我希望這有幫助。