PPT技巧：教你如何批量删除所有动画效果
发布时间：2022-08-30 21:08:56
标签：PPT,动画效果
有时，我们在做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设为“播放时不带动画”就可以达到同样效果。
0
投稿猜你喜欢
Win10 Build 10166 Mobile 向慢会员用户推送，Windows 10 Mobile Build 10166并- win11如何优化系统？相信大多数用户都已经更新到Win11系统了，但是不少用户觉得升级了之后系统并不流畅，这里小编就给大家分享下系统的优化
- 又到了新年，很多朋友需要在网上购买车票，又朋友发现mac安装不了12306根证书，只是什么原因，要如何解决呢？今天小编就为大家带来了苹果电脑
- ACCRINT函数用于计算定期付息证券的应计利息。ACCRINT函数的语法如下：ACCRINT(issue,fi rst_interest,
- WPS文字是一款办公软件，在使用wps进行编辑时可能需要用到分栏功能，即将页面进行一页分成两栏显示，如何进行设置的呢，一起来看看设置步骤吧。
- 对那些经常使用滴滴出行的朋友来说，将常去的地方设置为常用地址会方便不少，毕竟一直点击起点和终点难免令人厌烦。那么，滴滴出行要怎样增加常用地址
- 在使用Excel处理数据时，有时需要隐藏数据表中的某些行或某些列，在对数据进行求和或统计分析时，。将选择的行隐藏，在B24单元格中输入公式&
- 当我们毕业季需要面试的时候，一份干净简洁的简历就必不可少了，那么对于WPS小白来说，制作一份简历就太难了，没关系，WPS为大家准备了非常多各
- 其实说到任务管理器，相信大家都不会陌生，任务管理器可以帮助用户查看资源使用情况，结束一些卡死的应用等等，日常电脑使用与维护中经常需要用到。但
- 很多刚刚使用，甚至一些使用了很久Mac系统的人，可能不知道关机快捷键，只能通过点击屏幕左上角的苹果，然后选择其中的“关机”（Shut Dow
- 笔记本nvidia控制面板闪退怎么办？最近有用户在使用笔记本的时候，发现电脑打开nvidia控制面板都会出现闪退的现象，那么我们如何解决笔记
- 我们在使用win7系统的过程当中，如果需要离开一会儿的话，为了省电要切回离开模式，回来的时候又要解除，每次点来点去就会显得很麻烦，那么win
- 在使用Excel制作表格时，很多朋友们会发现单元格左上方会出现绿色的小三角，这个绿色小三角是指的什么。如何能够取消掉呢。下面让小编为你带来e
- 我们做文档时候一般都会添加图片修饰，可是总是用普通的图片过于单调，今天我们介绍一下图片层层叠加效果怎么制作。以下是小编为您带来的关于WPS中
- 我们下载满足了Win10系统升级所必须的镜像可并不算完事，这不，有用户在升级的时候遇到“微软兼容性检测补丁未安装”的提示，该提醒的原因就是没
- jupyter导入文件的方法：1、启动jupyter打开cmd控制台，然后直接使用jupyter notebook命令即可启动jupyter
- Excel中经常会遇到输入数字就会变样的问题，输入数字会变的问题具体该如何进行解决呢?不知道的朋友接下来是小编为大家带来的excel表格输入
- 如何使用ps把图片调成黄昏效果？给大家介绍如何使用ps把图片调成黄昏效果，一起来看看吧。1.打开ps，导入素材图片。2.点击【图像】-【调整
- 从Windows7开始，配置有无线网卡的笔记本就可以通过设置让无线网卡变成一个WiFi热点，从而让手机或其他笔记本连接该WiFi共享上网。可
- Win10 1909禁止生成“系统错误内存转储文件”怎么设置？最近很多用户反映遇到了这样的问题，这是怎么一回事呢？遇到了应该怎么解决呢？针对
