嘿，我帮你搞定这个需求！你的现有代码已经能成功打开目标PPT了，要实现「前进一页并设为活动幻灯片」其实非常简单，核心是先捕获打开的演示文稿对象，再控制视图跳转到下一页就行。

修改后的完整代码（编辑视图下跳转） #

Private Sub OpenPowerpoint() 
' Opens Presentation.pptx and navigates to the next slide
Dim PPT As PowerPoint.Application 
Dim Pres As PowerPoint.Presentation ' 新增变量存储打开的演示文稿

Set PPT = New PowerPoint.Application 
PPT.Visible = True 

' 将打开的演示文稿赋值给Pres变量，方便后续操作
Set Pres = PPT.Presentations.Open(Filename:="C:\Users\Person\Desktop\Test\Template.pptx")

' 方案1：直接跳转到第2页（适合明确从第1页前进的场景）
Pres.Windows(1).View.GotoSlide 2

' 方案2：动态前进一页（不管当前在哪页，都前进到下一页）
' 如果需要动态跳转，把上面的GotoSlide代码替换成下面这行
' Pres.Windows(1).View.Slide = Pres.Slides(Pres.Windows(1).View.Slide.SlideIndex + 1)
End Sub

关键代码解释 #

• 新增Pres变量：用来存储打开的演示文稿对象，这样我们能直接对目标PPT进行操作，而不是只控制PowerPoint应用程序本身。
• Pres.Windows(1).View.GotoSlide 2：直接指定跳转到第2页，完美匹配你当前默认打开第1页的场景。
• 动态跳转代码：如果以后需要从任意页码前进一页，就用注释里的代码——先获取当前显示的幻灯片编号，加1后跳转到对应幻灯片。

可选：幻灯片放映模式下前进一页 #

如果你的需求是打开PPT后直接进入放映模式并前进一页，可以用这段代码：

Private Sub OpenPowerpointAndStartSlideShow()
Dim PPT As PowerPoint.Application
Dim Pres As PowerPoint.Presentation
Dim SlideShowWin As PowerPoint.SlideShowWindow

Set PPT = New PowerPoint.Application
PPT.Visible = True
Set Pres = PPT.Presentations.Open(Filename:="C:\Users\Person\Desktop\Test\Template.pptx")

' 启动幻灯片放映（默认从第1页开始）
Set SlideShowWin = Pres.SlideShowSettings.Run
' 前进到下一页（第2页）
SlideShowWin.View.Next
End Sub

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