如何使用 Excel VBA 打開 PowerPoint 幻燈片？

Question

Sub Day1()

Dim objPPT As Object

Set objPPT = CreateObject("PowerPoint.Application")
Set PowerPoint.Slide = 5
objPPT.Visible = True

objPPT.Presentations.Open "C:\Users\Me\Desktop\Macro Test\Day 1.pptx"

End Sub

我希望它能打開我的 PowerPoint 演示文稿中的第五張幻燈片。

Answer 1

您的示例代碼幾乎是正確的。 只需要使用正確的對象，然后選擇幻燈片。

Dim objPPT As Object
Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

objPPT.Presentations.Open("your file")

objPPT.Slides(5).Select