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

赞 (0)

相关推荐

  • PPT怎么删除所有动画效果

    PPT怎么删除所有动画效果 通过PPT软件中的VBA来解决了,几乎搜遍了所有的网站,最后终于找到了答案,将代码给各位分享. 代码如下: Sub removeALL() Dim I As Integer ...

  • ppt怎么制作点击图片实现缩放动画效果?

    ppt中想要给图片添加一个动画效果,该怎么添加呢?下面我们就来看看给图片添加动画效果的教程. 1.首先启动ppt2010,执行插入-图片命令,插入一张事先准备好的图片. 2.调整大小和位置,执行文件- ...

  • 如何在PPT文档中制作文本框的动画效果

    如何在PPT文档中制作文本框的动画效果

    我们在使用PPT文档编辑文件的时候,想要给文本框制作动画效果,该怎么操作呢?今天就跟大家介绍一下如何在PPT文档中制作文本框的动画效果的具体操作步骤.1. 首先打开想要编辑的PPT文档,如图,依次点击 ...

  • 如何在PPT文档中添加文字并设置动画效果顺序

    如何在PPT文档中添加文字并设置动画效果顺序

    PPT是现在十分常用的文件类型之一,有些新用户不知道如何在PPT文档中添加文字并设置动画效果顺序,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的PPT文档,先依次点击 ...

  • 教你如何批量删除Word中选择题的答案

    我们在网络上下载的文档，通常都会附带答案的，但我们有时又想批量删除里面的答案，然后共享出去一起进行复习。对于这个问题小编已经心中有答案咯。 下面来看下怎样在word中批量删除答案的。如下图所示，选择题 ...

  • 一招教你快速批量删除苹果手机相册照片

    一招教你快速批量删除苹果手机相册照片

    相信很多小伙伴都有在使用苹果iPhone手机,其中相册照片如何才能批量删除呢?方法很简单,下面小编就来为大家介绍.具体如下:1. 首先,打开手机上的相册.2. 进入后,点击"相机胶卷&quo ...

  • 教你如何批量删除iPhone通讯录的联系人

    不知不觉中,手机通讯录中储存了很多不必要的联系人.比如小编大学时,把每个同学的电话号码都存了一遍,毕业工作后,很多人都换号了,也有很多人慢慢都不联系了.看着众多的"僵尸号",如果一 ...

  • PPT中怎么给形状添加统一的动画效果？

    PPT中怎么给形状添加统一的动画效果？

    相信很多小伙伴在日常办公中都会用到PPT,那么在其中我们怎么给形状添加统一的动画效果呢?方法很简单,下面小编就来为大家介绍.具体如下:1. 首先,打开电脑上的PPT,在其中任意插入几个形状.这里小编插 ...

  • ppt怎么制作一个小孩上楼梯的动画效果?

    ppt中想要制作一个小孩爬楼梯的动画,该怎么制作这个动画效果呢?下面我们就来看看详细的教程. 1.新建PPT幻灯片.点击菜单栏的形状,插入“半闭框”. 2.复制几个“半闭框”,制作楼梯. 3.背景颜色 ...