华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户

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

　　代码如下：

　　Sub removeALL()

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　Dim I As Integer: Dim J As Integer

　　Dim oActivePres As Object

　　Set oActivePres = ActivePresentation

　　With oActivePres

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　For I = 1 To .Slides.Count

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　If Val(Application.Version) < 10 Then

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　For J = 1 To .Slides(I).Shapes.Count

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　Next J

　　Else

　　For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　.Slides(I).TimeLine.MainSequence(J).Delete

　　Next J

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　End If

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　Next I

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　End With

　　Set oActivePres = Nothing

　　End Sub

　　另附方法二：

华纳国际app下载-果敢老街华纳国际官网-真人华纳国际官网-华纳娱乐平台网址-华纳国际开户 　　在PPT放映设置时把PPT设为“播放时不带动画”就可以达到同样效果。