PPT教程
PPT模板 设计素材 PPT背景图 PPT教程 专题 word模板 excel模板 PPT标签
个人规划 自我介绍 工作总结 求职竞聘 入职培训 述职报告
搜索
开通VIP
首页 PPT教程  PPT技巧
全部 PPT资讯 PPT背景图 PPT技巧 PPT常见问题 图片素材 办公教程 PPT设计 视频教程

怎样一次性删除PPT中所有动画效果

2018-03-26 23:30 责任编辑：砕月

在PPT中添加插入了很多动画效果，想要一个一个删除未免太过麻烦了，我们在这里使用一些代码技巧来批量删除PPT中所有动画，不懂的朋友们一起来学学。通过PPT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。代码如下：Sub removeALL()Dim I As Integer: Dim J As IntegerDim oActivePres As ObjectSe

　　在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模板更多

热门标签更多

建议不能为空
联系方式不能为空