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

在PPT中添加插入了很多动画效果，想要一个一个删除未免太过麻烦了，我们在这里使用一些代码技巧来批量删除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设为“播放时不带动画”就可以达到同样效果。

赞 (0)

相关推荐

  • 如何一次性删除PPT中所有动画效果?

    昨天有个PPT爱好者提出了一个要求，问是否有方法一次性删除PPT中所有的动画效果，想想也是合理的，PPT中是没有这个功能的，只能在每个PPT页面中一张张删除，如果有几百张，确实也是个烦人的工作。想来也 ...

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

    通过PPT软件中的VBA来解决了，几乎搜遍了所有的网站，最后终于找到了答案，将代码给各位分享。 代码如下： Sub removeALL() Dim I As Integer: Dim J As Int ...

  • 如何将PPT中的动画效果设置隐藏

    如何将PPT中的动画效果设置隐藏

    今天给大家介绍一下如何将PPT中的动画效果设置隐藏的具体操作步骤.1. 首先打开电脑,找到想要操作的PPT文档,双击打开,如图,可以看到幻灯片中有多个动画效果.2. 我们在进行幻灯片播放时,就会显示出 ...

  • 如何在PPT中插入动画效果

    在看别人的PPT放映时,你是不是很羡慕那些各式各样的动画效果.动画效果可以增加PPT的吸引力,运用得好,也能对展示内容有很好的补充效果.那动画效果是不是很难,是不是要用其他什么软件才能实现呢?其实,简 ...

  • 怎么在PPT里面设置动画效果？

    怎么在PPT里面设置动画效果？

    在PPT中其实是可以设置动画效果的,在PPT中适当添加一些动画效果,可以让你的PPT展示取得意想不到的效果.如果你还不会在PPT中设置动画效果,可以按照下文中的步骤来操作.步骤一.打开PPT后,新建空 ...

  • 如何快速删除电脑版PPT中的动画

    如何快速删除电脑版PPT中的动画

    电脑版PPT软件被很多人使用,用来编辑幻灯片等,有的用户在使用该软件时,发现无法播放动画,因此想要快速删除动画,但是却不知道如何删除,那么小编就来为大家介绍一下吧.具体如下:1. 第一步,双击或者右击 ...

  • PPT中自定义动画功能如何使用?

    PPT是教学中常用的办公软件,直观形象,文字图片可以根据需要定时出现,吸引学生注意力,这就需要用到PPT中的自定义动画功能,具体如何使用呢? 方法/步骤 1.打开PPT软件,在演示文稿文本编辑框内输入 ...

  • PPT翻书动画效果教程

    是不是已经厌倦了平淡无奇的PPT展示方式呢?是不是已经讨厌了毫无新意的图片展示形式呢?是不是还木有掌握PPT的翻书动画效果呢?今天PPT教程网就和大家一起来把书本“翻来覆去”。 1.首先选用“自定义图 ...

  • ppt怎么做动画效果?

    ppt怎么做动画效果?powerpoint中如何插入随机效果,小编为大家讲解powerpoint中如何插入随机效果. 1.如图所示,我们点击打开箭头所指的ppt文档. 2.如图所示,我们点击箭头所指的 ...