如何使用 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