Sub ChangeAnimationsToFadeOut()
    Dim oSlide As Slide
    Dim oEffect As Effect
    Dim oPresentation As Presentation

    Set oPresentation = ActivePresentation

    ' 遍歷每個幻燈片
    For Each oSlide In oPresentation.Slides
        ' 遍歷每個幻燈片上的動畫效果
        For Each oEffect In oSlide.TimeLine.MainSequence
            ' 將動畫效果更改為淡出效果
            oEffect.EffectType = msoAnimEffectFade
            ' 設置淡出效果的速度
            oEffect.Timing.Duration = 0.5
        Next oEffect
    Next oSlide
End Sub

要運行此代碼，請按照以下步驟操作：

1. 打開您要修改的PowerPoint簡報。
2. 按下 Alt + F11 鍵，打開VBA編輯器。
3. 在VBA編輯器中，單擊菜單中的 插入 > 模組，在新模組中粘貼上面的代碼。
4. 按下 F5 鍵執行代碼，或者在VBA編輯器中單擊菜單中的 執行 > 執行Sub / UserForm。執行完畢後，代碼已無用。
5. 退出VBA編輯器，儲存文件，選「是」儲存為無巨集的普通文件。

現在，您的簡報中的所有動畫效果都將更改為淡化效果。

如果你要的不是淡化效果，而是其他，可以參考以下：

MsoAnimEffect 枚舉 （PowerPoint） | Microsoft Learn

如果你要一次過刪除所有投影片上的所有動畫，可運行以下VBA代碼：

Sub DeleteAllAnimations()
    Dim oSlide As Slide
    Dim oShape As Shape
    
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            oShape.AnimationSettings.EntryEffect = ppEffectNone
            oShape.AnimationSettings.AdvanceMode = ppAdvanceModeMixed
            oShape.AnimationSettings.AdvanceMode = ppAdvanceMouseClick
        Next oShape
    Next oSlide
End Sub