【office技巧】删除PPT页面/整个文档中的所有动画的方法（使用宏命令一键删除）PPT中的动画如果数量较多，逐个删除

在这里插入图片描述

PPT中的动画如果数量较多，逐个删除会比较麻烦。对于少量动画，可以直接在当前页面全选对象并将动画设置为“无”；如果需要一次性清除整份PPT中的动画，则可以借助VBA宏批量处理。下面分别介绍这两种方法，并给出可直接使用的宏代码。

删除当前页面全部动画

打开需要处理的幻灯片。
按 Ctrl+A 选中页面中的全部对象。
进入“动画”选项卡。
在动画效果中选择“无”。

注意：该方法只处理当前页，而且部分触发器动画、组合对象动画可能无法一次完全删除。

批量删除整份PPT的全部动画

PowerPoint没有稳定的一键删除全部页面动画功能，建议使用VBA。

按 Alt+F11 打开VBA编辑器，选择“插入 → 模块”，粘贴以下代码：

Sub 删除所有动画()

    Dim sld As Slide
    Dim seq As Sequence

    For Each sld In ActivePresentation.Slides

        ' 删除普通动画
        Set seq = sld.TimeLine.MainSequence
        Do While seq.Count > 0
            seq(1).Delete
        Loop

        ' 删除交互式触发器动画
        Dim i As Long
        For i = sld.TimeLine.InteractiveSequences.Count To 1 Step -1
            Set seq = sld.TimeLine.InteractiveSequences(i)
            Do While seq.Count > 0
                seq(1).Delete
            Loop
        Next i

    Next sld

    MsgBox "所有幻灯片动画已删除。"

End Sub

在这里插入图片描述

然后进行如下操作：

将光标放在代码中。
按 F5 运行。
保存文件。

在这里插入图片描述