您可以 "unroll" 将 Powerpoint 中的动画制作成幻灯片吗?

Can you "unroll" an animation in Powerpoint to slides?

我目前正在用 Powerpoint 准备一份 "final report" 文档,要求我不包含动画。但是,要合并的各种源文档包括动画。

我正在寻找一种为每个动画步骤自动生成幻灯片的方法。基本上与将幻灯片导出为带有动画步骤的 PDF 相同的功能,不同之处在于动画步骤仍然是 powerpoint 幻灯片。

有没有办法自动实现,还是我必须复制幻灯片并自己准备动画步骤?

使用名为 Massimo Rimondini 的人为 MS Office 开发的 PPspliT 插件。它正是你想要的。我检查了 Office 2013,它工作正常。


奖金:

如果插件无法删除所有动画并转换为单独的幻灯片(这种可能性很小),您可以禁用所有剩余的幻灯片放映动画,或使用宏将它们完全删除。

禁用动画:

您可以通过转到“设置幻灯片放映”并在“显示选项”下勾选“不显示动画”选项并单击“确定”来关闭动画。现在 运行 节目将在没有动画的情况下显示。

完全删除动画:

如果您真的想一次删除所有动画,那么您将需要运行这个宏。

Sub StripAllBuilds()
    Dim I As Integer: Dim J As Integer
    Dim oActivePres As Object
    Set oActivePres = ActivePresentation
    With oActivePres
        For I = 1 To .Slides.Count
            If Val(Application.Version) < 10 Then
                ' Older versions of PowerPoint 97/2000
                ' In each slide set the animation property
                ' of the Shape object to FALSE
                For J = 1 To .Slides(I).Shapes.Count
                    .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
                Next J
            Else
              ' New versions support the Timeline object
                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 oActivePres = Nothing
End Sub