打开VBA窗口
快捷键Alt+F11
打开窗口,窗口如下图
粘贴删除动画代码
点击上方工具栏中插入->模块
在弹出的窗口粘贴以下代码
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 '页数从1到结尾'
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的每一页,对于每一页中的动画进行遍历删除。
其中有一个判断PowerPoint版本的 if 语句,用来判断每一页中动画的具体删除方式。
有其他需求可以根据以上代码进行魔改
运行
点上方绿色箭头运行即可
运行后即消除了所有动画,下面是消除切换动画
消除切换动画
依次点击切换->无->应用到全部
,即消除了切换动画