- 在女人上面怎么成为真正的男人 1个简单易行的方法揭秘 男人必看! 帮助用户解决问题
- 寻找不良内容的朋友请绕行-专注实拍:让悲观者有力 让无力者前行 爱剪辑
- 链接分享群组,实拍视频群关注公众号|开阔视野,增长见识 互联网IT
- 高端社群~VIP视频群限时招募中~ 手机保养
- 如何将WAV音乐刻录成CD?音乐CD制作最新教程,轻松制作专属音乐光盘! 手机保养
- 如何为视频添加背景音乐?背景音乐添加最新教程,轻松打造完美配音! 照片尺寸
- 如何在GIF动态图片中插入图片?动态图片编辑最新教程,轻松玩转动图! 照片尺寸
- 申请入群加微信(进实拍视频群 请加微信:neimu550) 照片尺寸
- 红日会VIP实拍视频|最新吃瓜群每天分享20个 音乐制作
- 据科学家统计,看美女有助于身心健康! 音乐制作
- 点击链接直接进群,保存头像加群主二维码申请进群 SEO交流
-
-
-
[ppt删除所有动画]怎样一次性删除PPT中所有动画效果
狸窝 复制 收藏 保存到桌面 快速找教程方案 反馈需求 社会主义核心价值观 在线客服 马上注册 升级VIP
在PPT中添加插入了很多动画效果,想要一个一个删除未免太过麻烦了,我们在这里使用一些代码技巧来批量删除PPT中所有动画,不懂的朋友们一起来学学。
推荐阅读:PPT转换成视频
http://www.leawo.cn/space-627-do-thread-id-13049.html
通过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转换成图片 狸窝相册模板如何套用 视频如何截图 卡拉ok歌曲MV下载♦★
▁▂▃笑话▃▂▁学生:我就是不明白,为什么我们非要学英语?
老师:因为世界上有一大半人都说英语 。
学生:难道还嫌不够吗?
老师:滚出去。。。。
★♦加速视频转换 cda转mp3 中国钓鱼岛 ppt支持的视频格式 相册制作视频♦★
照片制作视频 http://www.leawo.cn/space-mtag-tagid-735.html
ppt转换成视频 http://www.leawo.cn/space-627-do-thread-id-13049.html