把簡報動畫改成淡化動畫

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

已發佈

分類:

作者:

標籤:

留言

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *