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动画效果的两种方法，大家可根据自己的习惯来使用，希望这篇教程对大家有帮助。
相关推荐
-
PPT怎么删除所有动画效果
PPT怎么删除所有动画效果 通过PPT软件中的VBA来解决了,几乎搜遍了所有的网站,最后终于找到了答案,将代码给各位分享. 代码如下: Sub removeALL() Dim I As Integer ...
-
ppt怎么制作点击图片实现缩放动画效果?
ppt中想要给图片添加一个动画效果,该怎么添加呢?下面我们就来看看给图片添加动画效果的教程. 1.首先启动ppt2010,执行插入-图片命令,插入一张事先准备好的图片. 2.调整大小和位置,执行文件- ...
-
如何在PPT文档中制作文本框的动画效果
我们在使用PPT文档编辑文件的时候,想要给文本框制作动画效果,该怎么操作呢?今天就跟大家介绍一下如何在PPT文档中制作文本框的动画效果的具体操作步骤.1. 首先打开想要编辑的PPT文档,如图,依次点击 ...
-
如何在PPT文档中添加文字并设置动画效果顺序
PPT是现在十分常用的文件类型之一,有些新用户不知道如何在PPT文档中添加文字并设置动画效果顺序,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的PPT文档,先依次点击 ...
-
教你如何批量删除Word中选择题的答案
我们在网络上下载的文档，通常都会附带答案的，但我们有时又想批量删除里面的答案，然后共享出去一起进行复习。对于这个问题小编已经心中有答案咯。 下面来看下怎样在word中批量删除答案的。如下图所示，选择题 ...
-
一招教你快速批量删除苹果手机相册照片
相信很多小伙伴都有在使用苹果iPhone手机,其中相册照片如何才能批量删除呢?方法很简单,下面小编就来为大家介绍.具体如下:1. 首先,打开手机上的相册.2. 进入后,点击"相机胶卷&quo ...
-
教你如何批量删除iPhone通讯录的联系人
不知不觉中,手机通讯录中储存了很多不必要的联系人.比如小编大学时,把每个同学的电话号码都存了一遍,毕业工作后,很多人都换号了,也有很多人慢慢都不联系了.看着众多的"僵尸号",如果一 ...
-
PPT中怎么给形状添加统一的动画效果？
相信很多小伙伴在日常办公中都会用到PPT,那么在其中我们怎么给形状添加统一的动画效果呢?方法很简单,下面小编就来为大家介绍.具体如下:1. 首先,打开电脑上的PPT,在其中任意插入几个形状.这里小编插 ...
-
ppt怎么制作一个小孩上楼梯的动画效果?
ppt中想要制作一个小孩爬楼梯的动画,该怎么制作这个动画效果呢?下面我们就来看看详细的教程. 1.新建PPT幻灯片.点击菜单栏的形状,插入“半闭框”. 2.复制几个“半闭框”,制作楼梯. 3.背景颜色 ...
