我的doEvent为什么很难起作用？

hjydream

Sub main()
Dim start, pastTime
ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = "00:00:00"
start = Now

ActivePresentation.SlideShowSettings.Run
pastTime = Format(Now - start, "hh:mm:ss")
Do While pastTime < "00:00:10"
    pastTime = Format(Now - start, "hh:mm:ss")
    Sleep 1000
    ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = pastTime
  '      SlideShowWindows(Index:=1).View.Next
    DoEvents    ' 将控制让给其他程序。
Loop
    SlideShowWindows(Index:=1).View.Exit
End Sub

大家拷贝到ppt_vba中就能运行，但是我放映时候为什么很难翻页？

恳请高手指点！

hjydream

忘了还要声明

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

huping4451

VB，高级应用在这里没什么市场。

roof

vb 在ppt中本来就没有什么市场

不知道sleep 语句在你代码中起什么作用，但是它妨碍了系统接收mouseclick事件（sleep期间不能接收和处理事件），所以会出现翻叶困难的现象。