How to remove all animation effects in ppt at once?

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

With Oactivepres

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

Next J

Else

For J =. Slides (I). TimeLine.MainSequence.Count to 1 Step-1

. Slides (I). Timeline.mainsequence (J). Delete

Next J

End If

Next I

End With

Set oactivepres = Nothing

End Sub

Additional method Two:

The same effect can be achieved by setting the PPT to "play without animation" when the PPT show is set up.