ppt进阶技巧：如何一键删除ppt所有动画?ppt宏代码教程

　　ppt进阶技巧：如何一键删除ppt所有动画?ppt宏代码教程

　　在我们的日常生活、学习等过程中，很多时候会需要使用到ppt进行一些汇报准备等等。所以，学会使用ppt就成为了很重要的事情，今天小编整理了ppt进阶技巧：如何一键删除ppt所有动画?ppt宏代码教程，让我们一起看看吧。

　　宏命令如下：

　　Sub 删除所有动画()

　　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宏命令请自行查询!