如何批量修改300页PowerPoint所有对象的动画启动选项为‘与上一动画同时’？

嘿，针对你这300页PPT要统一修改所有动画启动选项的需求，这里有两个高效方案，帮你彻底告别手动一页页改的繁琐：

这是最快的方式，几秒钟就能完成所有页面的修改：

1. 打开你的PPT，按下Alt + F11打开VBA编辑器
2. 点击菜单栏的「插入」→「模块」，在弹出的空白模块窗口里粘贴下面的代码：

Sub SetAllAnimationsToWithPrevious()
    Dim sld As Slide
    Dim eff As Effect
    
    ' 遍历演示文稿中的每一页幻灯片
    For Each sld In ActivePresentation.Slides
        ' 遍历当前幻灯片的所有动画效果
        For Each eff In sld.TimeLine.MainSequence
            ' 将动画启动选项设置为*与上一动画同时*
            eff.Timing.TriggerType = msoTriggerWithPrevious
        Next eff
    Next sld
    
    MsgBox "所有动画启动选项已修改完成！", vbInformation
End Sub

3. 按下F5运行这个宏，等待弹出提示框就搞定了。

如果对VBA不太熟悉，可以用「复制/粘贴动画属性」的方式批量操作：

1. 先挑任意一页幻灯片，把这页里所有对象的动画启动选项都改成与上一动画同时，作为模板页
2. 打开「动画窗格」（在「动画」选项卡的右侧区域），按住Ctrl + A全选这页里的所有动画
3. 右键选中的动画，选择「复制动画」
4. 切换到左侧的幻灯片缩略图面板，按住Shift键点击第一页和最后一页，一次性选中全部300页幻灯片
5. 右键任意一个选中的幻灯片缩略图，选择「粘贴动画」→「粘贴所有动画属性」

这样所有幻灯片的动画启动选项就会统一同步成与上一动画同时了。

内容的提问来源于stack exchange，提问作者user6814992