PowerPoint VBA macro to skip animation on a slide

问题

I've got some PowerPoint slides containing various pieces of custom animation (e.g. piece of text appears, pause, next piece of text appears, user clicks to show image). However, is it possible to add a macro so that the user could click a button and bypass all the animations to jump directly to the end state of the same slide? I know how to link a macro to a button, it's just the VBA itself that's the problem.

Thanks

回答1:

Have you tried?

Sub JumpToEndOfAnimations()

Call SlideShowWindows(1).View.GotoClick(msoClickStateAfterAllAnimations)

End Sub

回答2:

You can add a duplicate of the slide in its end state with no animations, hide it, then add an action button on your animated slide that links to the hidden, unanimated version of the same slide.

来源：https://stackoverflow.com/questions/34590837/powerpoint-vba-macro-to-skip-animation-on-a-slide