PowerPoint 消除所有动画VBA指令

打开VBA窗口

快捷键Alt+F11打开窗口，窗口如下图

粘贴删除动画代码

点击上方工具栏中插入->模块

在弹出的窗口粘贴以下代码

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          '页数从1到结尾'
    If Val(Application.Version) < 10 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

代码基本思路是遍历PPT的每一页，对于每一页中的动画进行遍历删除。
其中有一个判断PowerPoint版本的 if 语句，用来判断每一页中动画的具体删除方式。
有其他需求可以根据以上代码进行魔改

运行

点上方绿色箭头运行即可

运行后即消除了所有动画，下面是消除切换动画

消除切换动画

依次点击切换->无->应用到全部，即消除了切换动画