PowerPoint VBA prematurely exit loop slide show
If a textbox with the name "Textbox1" is present on a current slide a counter wil start.
But only when the counter has stopped you can navigate to another slide. How can i cancel prematurely the loop so i can navigate to another slide?
PublicSub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
Dim t AsDate
Dim s As Shape
ForEach s In Wn.View.Slide.Shapes
If s.Name ="Textbox1"Then
t = DateAdd("s",10, Now())
DoUntil t < Now()
DoEvents
Wn.View.Slide.Shapes("Textbox1").TextFrame.TextRange.Text = Timer
Loop
EndIf
Next s
EndSub