可通过VBA宏一键清除PowerPoint中所有幻灯片的动画效果：先启用“开发工具”选项卡，再插入并运行ClearAllAnimations或兼容旧版的ClearAllAnimationsDeep宏，最后将文件保存为.pptm格式以保留宏。
如果您在PowerPoint中为多张幻灯片添加了动画效果，但需要快速移除全部动画以简化演示或提升播放流畅度，则可通过VBA宏实现一键清除。以下是执行该操作的具体步骤：
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
一、启用开发工具选项卡
PowerPoint默认不显示“开发工具”选项卡，需手动开启以便访问VBA编辑器。开启后才能插入和运行宏代码。
1、点击“文件”菜单，选择“选项”。
2、在弹出的“PowerPoint选项”窗口中，点击左侧“自定义功能区”。
3、在右侧“主选项卡”列表中，勾选“开发工具”复选框。
4、点击“确定”保存设置。
二、插入并运行清除动画的宏代码
该宏遍历当前演示文稿中每一张幻灯片的每一个形状，并清空其所有动画效果，包括进入、退出、强调及路径动画。
1、点击“开发工具”选项卡，选择“Visual Basic”打开VBA编辑器。
2、在VBA编辑器中，右键“Normal”或当前PPT文件名（如“VBAProject（演示文稿1）”），选择“插入”→“模块”。
3、在新建模块的代码窗口中，粘贴以下完整代码：
Sub ClearAllAnimations()
Dim sld As Slide
Dim shp As Shape
Dim i As Long
For Each sld In ActivePresentation.Slides
For i = sld.TimeLine.MainSequence.Count To 1 Step -1
sld.TimeLine.MainSequence(i).Delete
Next i
Next sld
MsgBox "所有幻灯片的动画已清除完毕！"
End Sub
4、按
5、确认弹出提示框显示“所有幻灯片的动画已清除完毕！”。
三、使用替代宏代码（兼容旧版PPT）
部分PowerPoint版本（如2007/2010）中，MainSequence可能因嵌套动画结构导致删除不彻底。本方案采用递归清除方式，确保逐层移除所有时间线效果。
1、在VBA编辑器中新建另一个模块。
2、粘贴以下代码：
Sub ClearAllAnimationsDeep()
Dim sld As Slide, eff As Effect
Dim i As Long
For Each sld In ActivePresentation.Slides
Do While sld.TimeLine.MainSequence.Count > 0
sld.TimeLine.MainSequence(1).Delete
Loop
Next sld
MsgBox "深度清除完成：所有主序列动画已移除。"
End Sub
3、将光标置于代码内任意位置，按
四、保存为启用宏的PPT文件
若需反复使用该宏，必须将文件另存为支持VBA的格式，否则关闭后宏将丢失。
1、点击“文件”→“另存为”，选择保存位置。
2、在“保存类型”下拉菜单中，选择“启用宏的PowerPoint演示文稿（*.pptm）”。
3、输入文件名，点击“保存”。
