需一次移除簡報所有動畫?三種方法由易到深:
「投影片放映」→「設定投影片放映」→ 勾選「放映時不顯示動畫」。放映時略過動畫,原檔動畫保留。
「投影片放映」→「自訂動畫」→ Ctrl 點選多個動畫項目 → 按 Delete 或點「移除」。適合中小型簡報。
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
將巨集存入個人巨集活頁簿,未來任何簡報一鍵淨空動畫。