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动画效果的两种方法，大家可根据自己的习惯来使用，希望这篇教程对大家有帮助。