PPT放映至第5张幻灯片时如何修改第1张幻灯片的切换属性

需求说明 #

• 初始状态：第1张幻灯片AdvanceOnClick = msoTrue，放映启动后停留在第1张，必须用户鼠标点击才会切换页面。
• 触发逻辑：首次点击启动换页流程后，当放映推进到第5张幻灯片时，自动将第1张幻灯片的AdvanceOnClick属性修改为msoFalse，后续循环放映回到第1张时，无需用户点击，按照预设的自动换页时间自动推进。
• 现存问题：手动编写的属性设置代码单独运行正常，但无法在幻灯片放映过程中到达第5张时自动触发执行。

原有测试代码如下：

With ActivePresentation.Slides(1).SlideShowTransition
    .AdvanceOnClick = msoTrue
    .AdvanceOnTime = msoTrue
    .AdvanceTime = 5
End With

问题原因 #

上述代码是一次性的属性赋值逻辑，没有绑定幻灯片放映的页面切换事件，因此只会在手动运行代码时执行一次，无法在放映流程中自动触发。

实现步骤 #

• 打开目标演示文稿，按Alt+F11快捷键打开VBA编辑器。
• 在左侧工程资源管理器面板右键点击当前演示文稿项目，依次选择【插入】-【类模块】，按F4调出属性面板，将该类模块的(名称)属性修改为clsSlideShowEvent。
• 双击打开新建的类模块，粘贴以下事件监听代码：

' 声明带事件的应用对象
Public WithEvents PPTApp As Application

' 幻灯片切换触发事件
Private Sub PPTApp_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    ' 校验当前是否切换到第5张幻灯片
    If Wn.View.CurrentShowPosition = 5 Then
        ' 修改第1张幻灯片的切换属性
        With ActivePresentation.Slides(1).SlideShowTransition
            .AdvanceOnClick = msoFalse
            .AdvanceOnTime = msoTrue
            ' 自动换页时长可按需调整，单位为秒
            .AdvanceTime = 5
        End With
    End If
End Sub

• 再次右键点击当前演示文稿项目，依次选择【插入】-【模块】，双击打开新建的标准模块，粘贴以下初始化代码：

' 全局事件对象，避免对象被释放导致事件失效
Dim pptEvent As clsSlideShowEvent

Sub StartSlideShow()
    ' 初始化第1张幻灯片的初始切换规则
    With ActivePresentation.Slides(1).SlideShowTransition
        .AdvanceOnClick = msoTrue
        .AdvanceOnTime = msoTrue
        .AdvanceTime = 5
    End With
    
    ' 绑定放映事件监听
    Set pptEvent = New clsSlideShowEvent
    Set pptEvent.PPTApp = Application
    
    ' 启动幻灯片放映，不需要自动启动可删除本行
    ActivePresentation.SlideShowSettings.Run
End Sub

• 后续放映时，不要直接点击界面上的从头开始放映按钮，按Alt+F8调出宏窗口，选中StartSlideShow宏点击执行即可。

注意：保存演示文稿时需选择*.pptm（启用宏的PowerPoint演示文稿）格式，否则宏代码会被清除无法生效。如果需要打开文件自动初始化配置，可将初始化逻辑写入演示文稿的Presentation_Open事件中，无需手动运行宏。

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