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.