vba - 退出幻灯片放映模式时停止“循环播放”

Question

Global submit As Boolean, CS As Slide, txtTimer As TextRange, time1 As Single

Sub OnSlideShowPageChange() 

submit = False
Set CS = ActivePresentation.SlideShowWindow.View.Slide
Set txtTimer = CS.Shapes("countdown").TextFrame.TextRange

If CS.SlideIndex = 1 Then
    
    time1 = Timer()
  
    Do Until submit = True
    DoEvents
    txtTimer = Round(Timer() - time1, 2) 'milliseconds
    Loop
       
End If

End Sub

我有一个以幻灯片模式启动的倒数计时器。我必须Command Button通过运行来停止计时器submit = true。退出幻灯片放映模式时，我在停止倒数计时器时遇到问题

我尝试If SlideShowWindows.count = 0 Then submit = True在其中使用，Do Loop但这会使我的 PowerPoint 崩溃。我也尝试在Do Until条件中添加它，但是，它又崩溃了。

我可以利用此代码来跟踪ESC密钥。但是，如果我使用左下角的控制键退出幻灯片放映，它将不起作用。

我感谢您的帮助。

标签： vbapowerpoint