Ok, so basically I need a Macro to restart the animations of the entire PPT Presentation, my game is action packed and has a lot of combat in it, problem is, when You die and fight again some of the animations within the game won't play again until You close and open the game again, this is of course bad and I need help to create a macro that resets all of the animations for all of the slides in the presentation. I coded a Macro that does work, but only works in a very specific and well cluncky way. This is the Macro: Sub Reiniciar()
SlideShowWindows(1).View.ResetSlideTime
SlideShowWindows(1).View.GotoSlide (3)
SlideShowWindows(1).View.GotoSlide (2)
SlideShowWindows(1).View.GotoSlide (1)
End Sub
I've tried using commands like "SlideReset" but these don't seem to work on the newest Power Point versions. I also tried with these codes, I made them myself but don't work. Sub SlidesReset()
For i = 1 To ActivePresentation.Slides.count
ActivePresentation.Slides(i).Select
Application.CommandBars.ExecuteMso ("SlideReset")
DoEvents
Next i
End Sub
Sub RefreshSlide()
Dim lSlideIndex As Long
lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide lSlideIndex
End Sub
If You guys could help me fixed this, I would be very thankful of the help provided, and I would put You guys in the Credits of the game as well as providing an early demo version of the game.
Ok that will do the trick, thanks a lot!