PowerPoint切换至幻灯片2时自动重置演示计时器需求问询

因为PresentationElapsedTime是只读属性，没法直接修改它的数值，但我们可以通过自动暂停再重启计时器的方式，间接实现重置效果——和手动点暂停/启动的逻辑一样，只是用VBA自动触发。

具体操作步骤 #

• 打开你的PPT，按Alt + F11打开VBA编辑器。
• 在左侧“项目”面板里找到你的演示文稿，右键点它，选插入 > 模块。
• 在弹出的模块窗口里粘贴这段代码：

Sub ResetTimerOnSlideChange()
    ' 检测当前切换到的是不是第二张幻灯片
    If ActiveWindow.View.Slide.SlideIndex = 2 Then
        ' 暂停计时器
        Application.Presentation.SlideShowWindow.View.PauseTimer
        ' 重启计时器，相当于重置计时
        Application.Presentation.SlideShowWindow.View.ResumeTimer
    End If
End Sub

• 接下来设置触发事件：
  1. 在左侧“项目”面板里双击ThisPresentation（找不到就点顶部菜单的“视图 > 项目资源管理器”）。
  2. 顶部第一个下拉菜单选SlideShow，第二个下拉菜单选SlideNext。
  3. 在生成的事件代码块里调用刚才的宏：

Private Sub SlideShow_SlideNext(ByVal Wn As SlideShowWindow)
    ResetTimerOnSlideChange
End Sub

• 最后把演示文稿保存成**启用宏的演示文稿（.pptm）**格式，不然宏没法生效。

补充说明 #

• 要是你需要在切换到其他幻灯片时触发重置，改代码里SlideIndex = 2的数字就行。
• 打开演示文稿时记得选择“启用内容”，不然宏不会运行。

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