如何使用Excel VBA打开PowerPoint指定幻灯片？

你的原始代码存在两处关键问题：

• 错误尝试直接设置PowerPoint.Slide = 5：此时尚未打开演示文稿，无法访问幻灯片对象，且语法不符合VBA规范
• 打开演示文稿的语句顺序错误：需先打开文稿才能定位到具体幻灯片

以下是修正后的代码：

Sub Day1()
    Dim objPPT As Object
    Dim objPresentation As Object
    
    ' 创建PowerPoint应用实例并设置为可见
    Set objPPT = CreateObject("PowerPoint.Application")
    objPPT.Visible = True
    
    ' 打开指定路径的演示文稿
    Set objPresentation = objPPT.Presentations.Open("C:\Users\Me\Desktop\Macro Test\Day 1.pptx")
    
    ' 定位并选中第5张幻灯片
    objPresentation.Slides(5).Select
End Sub

补充说明： #

• 若需要直接进入幻灯片放映模式并从第5张开始展示，可将最后一行代码替换为：

  objPresentation.SlideShowSettings.Run.View.GotoSlide 5
  

• 注意确保文件路径正确，当前写法已兼容包含空格的路径无需额外处理

内容的提问来源于stack exchange，提问作者Bishoy Hana