怎么一次性删除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设为“播放时不带动画”就可以达到同样效果。 本文章源自www.woippt.com我爱PPT模板网