VBA for Powerpoint：通過選擇另一個 Powerpoint 中的按鈕來更改一個 Powerpoint 中的幻燈片

Question

我是 VBA 的初學者。

我正在設計一個有點交互式的 Powerpoint 演示文稿。 我希望能夠打開將鏈接在一起的三個單獨的 Powerpoint 演示文稿。 我一直在嘗試（但沒有成功）在 VBA 中創建代碼，該代碼將通過單擊另一個 Powerpoint 文件中的按鈕來更改當前顯示的幻燈片。 我可以超鏈接到設置的幻燈片，但這會導致此幻燈片在單擊它的同一屏幕上彈出，盡管它已經在另一個屏幕中打開（我不想要這個）。

在此先感謝您的幫助，霍莉

Answer 1

VBA 使用的對象模型是代表應用程序的屬性和函數的巨大層次結構。 您可以使用此模型查看和更新​​屬性以獲取文本、調整大小和修改應用程序。 您應該查看一些教程來幫助您入門。 編輯代碼時，您可以按 F2 來查看和探索此對象模型。 您可以按 F8 逐行運行您的代碼（調試模式）並查看發生了什么。 對於您的問題，您可以訪問 application.presentations 對象（ https://docs.microsoft.com/en-us/office/vba/api/powerpoint.presentations ）中打開的演示文稿。 然后，您可以使用該列表中的演示文稿並使用ActiveWindow.View.goToSlide函數 ( https://docs.microsoft.com/en-us/office/vba/api/powerpoint.view.gotoslide )。 這是我在 VBA 之旅中使用的免費教程 ( https://www.tutorialspoint.com/vba/index.htm )。

Answer 2

PowerPoint 有一個 Presentations 集合，其中包含所有當前打開的演示文稿。 您可以通過 Presentations("name") 獲得對其中任何一個的引用，其中“name”是演示文稿的文件名，無擴展名。

所以...假設您打開了三個演示文稿，a.pptx、b.pptx、c.pptx，您可以執行以下操作：

Sub SlideChange()
    With Presentations("c")
        .SlideShowWindow.View.GotoSlide (3)
    End With
End Sub

如果您在任何演示文稿中運行上述內容，它會將顯示演示文稿 c 的幻燈片放映窗口更改為第三張幻燈片。