PowerPoint幻灯片切换前执行VBA代码：如何阻止新幻灯片提前显示？

问题核心 #

SlideShowNextSlide事件的实际触发时机与文档描述存在偏差：PPT会先开始渲染新幻灯片，再执行事件中的代码，导致无法在代码运行期间保持旧幻灯片可见。

可行解决方案：拦截点击事件，先执行代码再手动切换 #

利用SlideShowNextClick事件（点击“下一页”时立即触发，尚未切换幻灯片），拦截默认的切换行为，先执行第三方软件控制代码，再手动切换到新幻灯片。

步骤1：创建事件类模块

1. 打开VBA编辑器（Alt+F11）
2. 插入类模块，命名为clsPPTEvents
3. 粘贴以下代码：

' 根据Office位数选择对应的Sleep声明，删除另一个
' 32位Office
' Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' 64位Office
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Public WithEvents App As Application
Private m_bHandledNext As Boolean

Private Sub App_SlideShowNextClick(ByVal Wn As SlideShowWindow, ByVal nEffect As Effect)
    ' 替换为你需要触发代码的当前幻灯片索引（比如从第1页切换到第2页时执行）
    If Wn.View.Slide.SlideIndex = 1 Then
        m_bHandledNext = True
        
        ' --------------------------
        ' 这里替换为你的第三方软件控制代码
        ' 示例：模拟3秒耗时操作
        Sleep 3000
        ' --------------------------
        
        ' 手动切换到下一页
        Wn.View.Next
    End If
End Sub

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    ' 抵消默认的切换动作（因为SlideShowNextClick触发后，PPT仍会尝试默认切换）
    If m_bHandledNext Then
        m_bHandledNext = False
        Wn.View.Previous
    End If
End Sub

步骤2：初始化事件监听

1. 插入标准模块
2. 粘贴以下代码：

Private oPPTEvents As clsPPTEvents

Sub StartEventListening()
    Set oPPTEvents = New clsPPTEvents
    Set oPPTEvents.App = Application
    MsgBox "事件监听已启动，现在可以开始幻灯片放映"
End Sub

步骤3：运行并测试

• 运行StartEventListening宏
• 启动幻灯片放映，点击“下一页”时，旧幻灯片会保持可见直到代码执行完成，再切换到新幻灯片

关键说明 #

• 可以通过SlideID替代SlideIndex来精准定位触发场景（避免幻灯片顺序调整后失效）
• 该方法覆盖鼠标点击、空格键、PageDown等常见的“下一页”触发操作
• 若不需要精确控制触发时机，可移除If Wn.View.Slide.SlideIndex = 1 Then判断，让每次点击都执行代码

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