PPT技巧：教你如何批量删除所有动画效果

猫山

在PPT中添加插入了很多动画效果，想要一个一个删除未免太过麻烦了，我们在这里使用一些代码技巧来批量删除PPT中所有动画，不懂的朋友们一起来学学。

通过PPT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。

代码如下：

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) < 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放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。

以上就是富贵论坛小编批量删除所有PPT动画效果的两种方法，大家可根据自己的习惯来使用，希望这篇教程对大家有帮助。