Without code you can place a slide before the complex one (ideally it should look like the completed complex one) Give it an auto transition of 1 second and make the button link to this slide. the animations should be reset when it goes back to the original slide.
In code try this:
Sub resetSlide()
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
delayMe(1)
SlideShowWindows(1).View.GotoSlide (osld.SlideIndex), resetSlide:=msoTrue
End Sub
Sub delayMe(lngDelay as Long)
Dim TimerEnd As Long
TimerEnd = Timer + lngDelay
Do While TimerEnd > Timer
DoEvents
Loop
End Sub
|