powerpoint 如何一次删除全部动画

来源：百度知道 编辑：UC知道 时间：2024/04/28 02:32:46
有没有快速的方法，可以将一个ppt文件中所有幻灯片出现的自定义动画一次全部删除，而不是在每张幻灯片中逐一删除。
我刚刚试过，好像还是不行哦，我用的powerpoint2003

1、打开自定义动画
2、选择第一个动画效果后，按住Shift键点击最后那个动画效果，按Delete键删除
3、这样在放映时就不会有动画效果了。

在网上找了半天，最后发现利用“宏”来处理相当的方便！

  1. 打开需要清理动画的PPT；

  2. 点击视图选项卡下面的“宏”；

  3. 出现一个对话框，要求创建新的宏，在宏名称中输入“removeALL”（去掉双引号）；

  4. 单击创建后出现代码编辑页，在Sub removeALL()和End Sub之间的空白处粘贴下列代码，保存后运行宏即可！

  5. 代码如下

  6. 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) < 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