返回首页
当前位置: 主页 > 精通Office > PowerPoint教程 >

如何批量删除PPT中的动画效果方法详解

时间:2010-11-17 23:29来源:知行网www.zhixing123.cn 编辑:麦田守望者

  制作PPT的,很多时候我们会去下载一些PPT模板,然后对其做一些修改就OK了,那么在制作一些工作总结或总做计划类型的PPT时候,不需要做的太花哨,简介明了就可以,然而有许多PPT模板中带有动画特效,那么如何删除这些动画效果呢?我总结了一下,放下如下:

  方法一:在放映设置中设为“播放时不带动画”就可以了达到同样效果。

  方法二:在“自定义动画”对话框中选择要删除的动画序号(加ctrl键可以选择多个序号),然后点击“删除”。

  方法三:试试看下面的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

顶一下
(5)
71.4%
踩一下
(2)
28.6%
标签(Tag):ppt powerpoint2010 演示文稿
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片