Thread: [Solved] Master reset?
View Single Post
 
Old 05-10-2013, 05:14 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,913
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

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
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote