富贵论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

广告
查看: 6|回复: 0

[教程] PPT技巧:教你如何批量删除所有动画效果

[复制链接]

1万

主题

1万

帖子

5万

积分

老会

UID
30
金币
0
威望
0
贡献
18950
宣传
0
买家
0
卖家
0
注册时间
2017-9-24
最后登录
2024-5-2

交易达人勋章骨灰达人勋章富贵吧MM勋章豪气冲天勋章游戏达人勋章签到达人勋章

发表于 2024-4-16 20:05 | 显示全部楼层 |阅读模式

在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动画效果的两种方法,大家可根据自己的习惯来使用,希望这篇教程对大家有帮助。

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|手机版|小黑屋|富贵论坛 ( 琼ICP备2022019866号-1 )

GMT+8, 2024-5-27 21:39 , Processed in 0.130306 second(s), 38 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表