在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) 另附方法二：

在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。

声明：本文内容仅代表作者个人观点，与本站立场无关。

如有内容侵犯您的合法权益，请及时与我们联系，我们将第一时间安排处理。