☰

将 PowerPoint 演示文稿逐张合并为动画

tag-icon • tag-icon vba microsoft-office macros microsoft-powerpoint
将 PowerPoint 演示文稿逐张合并为动画

我有 12 个 PowerPoint 演示文稿（每个月一个），幻灯片数量相同，每张幻灯片包含相应月份的类似报告信息/趋势/表格。我想将所有 12 个幻灯片合并为一个演示文稿，每张幻灯片包含 12 个月的幻灯片包作为动画添加。基本上，这将有助于显示全年逐月的趋势。是否可以使用一些 PowerPoint 魔法或使用 VBA？我找到了一个可以将它们合并为一个的 VBA 宏，但它按顺序合并文件 1 + 文件 2 + .... + 文件 12。

有没有办法保持幻灯片数量不变，但将它们逐张合并为动画？下面的示意图显示了我想要实现的目标。

合并 PowerPoint 幻灯片

答案1

并排打开演示文稿（https://www.indeed.com/career-advice/career-development/how-to-merge-slides-in-powerpoint）并通过拖放进行，然后设置动画。否则，我认为最简单的方法是导出为 pdf。之后你可以管理它（使用https://www.adobe.com/acrobat/online/merge-pdf.html例如）。如果不做一些工作的话，这似乎有点复杂。

您还可以调整（我是 Linux 用户，因此无法测试）调整 InsertAllSlides 部分如何将多个 powerpoint 文件合并为一个文件？像那样：

Sub InsertAllSlides() ' 将与此幻灯片位于同一文件夹中的所有演示文稿的所有幻灯片插入此文件夹中；但不要尝试将此文件插入其自身中。

Dim vArray() As String
Dim x As Long

' Change "*.PPT" to "*.PPTX" or whatever if necessary:
EnumerateFiles ActivePresentation.Path & "\", "*.PPT", vArray

Dim pagecount As Integer
pagecount = [number of slides par document]
For page = 1 To pagecount
    With ActivePresentation
        For x = 1 To UBound(vArray)
            If Len(vArray(x)) > 0 Then
                .Slides.InsertFromFile vArray(x), page, page + 1
            End If
        Next
   End With
Next

子目录结束

相关内容