萬盛學電腦網

您现在的位置: 萬盛學電腦網 >> 辦公室軟體 >  >> PowerPoint 教學 >> PPT 進階技巧

批次刪除 PowerPoint 動畫效果三法:放映設定、自訂動畫、VBA 巨集

需一次移除簡報所有動畫?三種方法由易到深:

方法一:放映設定忽略動畫(最快,非實際刪除)

「投影片放映」→「設定投影片放映」→ 勾選「放映時不顯示動畫」。放映時略過動畫,原檔動畫保留。

方法二:自訂動畫窗格多選刪除(手動批次)

「投影片放映」→「自訂動畫」→ Ctrl 點選多個動畫項目 → 按 Delete 或點「移除」。適合中小型簡報。

方法三:VBA 巨集一鍵清除所有投影片動畫(大量檔案自動化)

Sub RemoveAllAnimations()
    Dim i As Long, j As Long
    Dim oPres As Presentation
    Set oPres = ActivePresentation
    With oPres
        For i = 1 To .Slides.Count
            If Val(Application.Version) < 10 Then
                ' PPT 2000/2002/2003
                For j = 1 To .Slides(i).Shapes.Count
                    .Slides(i).Shapes(j).AnimationSettings.Animate = msoFalse
                Next j
            Else
                ' PPT 2007/2010+
                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 oPres = Nothing
End Sub

將巨集存入個人巨集活頁簿,未來任何簡報一鍵淨空動畫。

copyright © 萬盛學電腦網 all rights reserved