怎么一次性删除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设为“播放时不带动画”就可以达到同样效果。
本文章源自www.woippt.com我爱PPT模板网

怎么一次性删除PPT中所有动画效果?相关推荐

如何一次性删除PPT中所有动画效果？
来也只有通过PPT软件中的VBA来解决了,几乎搜遍了所有的网站,最后终于找到了答案,将代码给各位分享. 代码以下: Sub removeALL()Dim I As Integer: Dim J As ...
如何取消PPT中的动画效果
幻灯片放映-->设置放映式-->勾选放映时不加动画 (office2007) 转载于:https://www.cnblogs.com/hanggegege/p/6832897.html
matlab中给图像加几个矩形框_没想到！PPT中的这个效果，用好了，简直就是渣图美化器...
相信大家一定看到过,透过磨砂玻璃呈现在眼前的景色,是不是有种朦胧美? 其实,在PPT中你也可以复刻出这样的效果.例如,这样的PPT页面: 把背景虚化掉,更加突出主题. 你想知道PPT中的磨砂效果,都是 ...
C#一次性删除委托中的所有方法
因为有的时候需要一次性删除委托中的所有方法 , 有时候不知道委托中挂载了哪些方法 , 即可通过委托的方法 GetInvocationList 得到此委托中所挂载的所有的方法一次行删除.来一个例子: u ...
Android中具有动画效果的图片资源
Android动画和Transition系列文章初识属性动画--使用Animator创建动画再谈属性动画--介绍以及自定义Interpolator插值器三谈属性动画--Keyframe以及Vie ...
JQuery中的动画效果
show() hide() slideUp slideDown fadeIn fadeOut animate : 自定义动画 JQuery中的动画效果.html <!DOCTYPE html&g ...
【Android笔记25】Android中的动画效果之逐帧动画
这篇文章,主要介绍Android中的动画效果之逐帧动画. 目录一.逐帧动画 1.1.什么是逐帧动画 1.2.逐帧动画的使用 (1)创建drawable动画资源<
vbs 删除 PPT 中的文本框
如何去除中国大学MOOC网下载的 pdf 格式课件中的底纹文字? 将 pdf 格式转换成 pptx 格式. 打开 https://www.ilovepdf.com/, 选择 PDF to powerp ...
CSS 中使用动画效果实现点赞特效
CSS 中使用动画效果实现点赞特效效果图当没有点赞的时候, 页面上只有的图标是黑色的点赞之后, 出现一个缓缓上升的红心赞, 之后页面上的赞变为取消, 图标变为红色缓缓上升的红心赞会左右摇摆 - ...

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

怎么一次性删除PPT中所有动画效果?相关推荐

最新文章

热门文章