waitTime = 3 Start = Timer While Timer < Start + waitTime DoEvents Wend
Function Wait(Seconds As Double) As Boolean Static StartTime As Double If StartTime = 0 Then StartTime = Timer If Timer - StartTime >= Seconds Then Wait = True StartTime = 0 End If End FunctionThe problem with these functions is that they literally pause the whole Power Point Presentation(I want Animations to keep playing while the macro does it's job.), and since I'm making a Power Point Game, I don't want it to do that because it messes with the experience and the flow of the Game.
Sub GameLoop() SlideShowWindows(1).View.GotoSlide (X) Waitfor 3 If SlideShowWindows(1).View.CurrentShowPosition = X Then SlideShowWindows(1).View.GotoSlide (Y) Else End If End SubBy the way I found useful information in the matter, although I'm not sure on how to implement those to my own functions or macros, its complicated. I will leave reference links:
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.