PPT怎么删除所有动画效果

好酷屋教程网小编为您收集和整理了PPT怎么删除所有动画效果的相关教程：ppT怎么删除所有动画效果通过ppT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。代码如下：SubremoveALL()DimIAsInteger:Dim

ppT怎么删除所有动画效果

通过ppT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。

代码如下：

SubremoveALL()

DimIAsInteger:DimJAsInteger

DimoActivepresAsObject

SetoActivepres=Activepresentation

WithoActivepres

ForI=1To.Slides.Count

IfVal(Application.Version)<10Then

ForJ=1To.Slides(I).Shapes.Count

.Slides(I).Shapes(J).AnimationSettings.Animate=msoFalse

NextJ

Else

ForJ=.Slides(I).TimeLine.MainSequence.CountTo1Step-1

.Slides(I).TimeLine.MainSequence(J).Delete

NextJ

EndIf

NextI

EndWith

SetoActivepres=Nothing

EndSub

另附方法二：

在ppT放映设置时把ppT设为“播放时不带动画”就可以达到同样效果。

以上就是好酷屋教程网小编为您收集和整理的PPT怎么删除所有动画效果相关内容，如果对您有帮助，请帮忙分享这篇文章^_^

本文来源： https://www.haoku5.com/IT/6428f94e90798937050b1e80.html

相关推荐