VBA를 사용하여 PPT에서 다음 슬라이드로 이동하기 전에 지연을 추가하는 방법

Question

슬라이드 쇼는 "Kiosk에서 찾아보기"해야합니다. 나는 다음 키 또는 그와 비슷한 것을 눌러 다음 슬라이드로 이동할 수있는 옵션을 사용자에게 제공하고 싶지 않습니다.

퀴즈 게임입니다. 올바른 옵션을 누르면 다음과 같은 코드는 활성화 :

Sub CorrectAnswer() 
Correct.Caption = (Correct.Caption) + 1 
Percentage.Caption = (Percentage.Caption) + 5 
MsgBox "That was the correct answer!", vbInformation + vbApplicationModal, "FOLK Quiz" 
ActivePresentation.SlideShowWindow.View.Next 
End Sub 

사용자는 네 가지 옵션 중 하나 누른다. 각 상자마다 방아쇠가 있습니다. 트리거가 활성화되면 상자 중 하나가 녹색으로 바뀌고 나머지는 빨간색으로 바뀝니다. 애니메이션을 사용하여이 작업을 수행했습니다.

애니메이션을 마친 후 몇 초 후에 다음 슬라이드로 이동하고 싶습니다. 그러나 어떻게 가능합니까? VBA에서 다음 슬라이드로 이동하는 데 지연을 추가 할 수있는 방법이 있습니까?

Answer 1

다음 슬라이드로 이동하기 전에 대기 시간을 추가해야합니다. Application.Wait을 사용하면 가능합니다. 그러면 코드는 다음과 같이 보입니다.

Sub CorrectAnswer() 

    Correct.Caption = (Correct.Caption) + 1 

    Percentage.Caption = (Percentage.Caption) + 5 

    MsgBox "That was the correct answer!", vbInformation + _ 
             vbApplicationModal, "FOLK Quiz" 
    lag = 3 
    start = Timer 

    While Timer < Start + lag 
     DoEvents 
    Wend 


    'Application.Wait(Now + TimeValue("0:00:03")) 'This adds 3 sec delay in ms VBA 

    ActivePresentation.SlideShowWindow.View.Next 

End Sub