Add a lot of animation effect in ppt, want a delete is too troublesome, we use some code technique here to delete all the animations in the PPT in bulk, don't understand the friends to learn together.
How to remove all animation effects in ppt at once?
Through the PPT software VBA to solve, almost searched all the websites, finally found the answer, the code for you to share.
The code is as follows:
Sub RemoveAll ()
Dim I as Integer:dim J as Integer
Dim Oactivepres as Object
Set oactivepres = ActivePresentation
For I = 1 to. Slides.count
If Val (application.version) < Then
For J = 1 to. Slides (I). Shapes.count
. Slides (I). Shapes (J). Animationsettings.animate = MsoFalse
For J =. Slides (I). TimeLine.MainSequence.Count to 1 Step-1
. Slides (I). Timeline.mainsequence (J). Delete
Set oactivepres = Nothing
Additional method Two:
The same effect can be achieved by setting the PPT to "play without animation" when the PPT show is set up.