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中导入的图片想要进行镜像翻转，该怎么操作呢？我们可以使用旋转工具实现，下面我们就来看看详细的教程2024-09-12- 日常工作制作ppt时，经常需要插入多张图片，很多朋友都是一张一张插入，甚是繁琐，下面小编教大家在ppt中一次性插入多张图片2024-09-04
怎么将ppt中所有的文字设置为宋体? ppt一键替换字体的技巧
PPT内容制作完成后，发现字体不合适需要更换，这时利用“替换字体”功能可高效地进行批量更换操作，详细请看下文介绍2024-07-31ppt等比例缩放图片按什么键? PPT进行中心等比缩放的方法
ppt插入的图片，想要进行缩放，该怎么操作呢？今天我们主要介绍中心等比缩放图片的技巧，详细请看下文介绍2024-07-31PPT幻灯片怎么插入word表格? PPT文稿导入word表格的教程
ppt幻灯片中想要插入word表格，该怎么将word文件导入到ppt文稿呢？下面我们就来看看详细的教程2024-07-24ppt打印预设怎么用? ppt使用最近使用过的打印设置的开启方法
经常打印ppt文件，上一次打印的时候进行了打印设置，这次想直接使用，该怎么操作呢？下面我们就来看看详细的操作方法2024-07-17ppt怎么更改文本框出现的顺序? PPT设置文本出场顺序动画的技巧
在PPT中，我们可以使用多种方法来设置文本框的先后出现顺序，下面我们就来分享最简单的方法，详细请看下文介绍2024-07-17- ppt中想要给图形填充颜色，我们可以使用取色器的吸管吸取颜色，并填充到图形中，该怎么操作呢？下面我们就来看看详细的教程2024-07-17
PPT如何给切换效果添加照相机声音 PPT幻灯片给切换效果添加照相机声音
PPT如何给切换效果添加照相机声音？其实在PPT程序中，我们在切换工具的子工具栏中选择好切换效果之后，找到“声音”工具，直接点击打开该工具，然后在下拉列表中就能选择自2024-07-16
PPT幻灯片如何设置校对语言 PPT幻灯片设置校对语言的方法
PPT幻灯片如何设置校对语言？其实我们只需要点击打开PPT中的“审阅”工具，然后在其子工具栏中点击打开“语言”工具，接着在下拉列表中，我们找到并打开“设置校对语言”选2024-07-16
最新评论