当很多人处理多个PowerPoint 演示文稿(PowerPoint presentations)，然后最终需要合并它们时，这变得具有挑战性。主要原因是成型。如果团队彼此不同步，那么将它们带入相同的格式将成为一项痛苦的工作。
Microsoft PowerPoint提供类似于Word和Excel的内部解决方案，它允许您合并多个PowerPoint演示文稿，并且仍然保持格式不变。正确的做法是要求每个人使用相同的主题。确保(Make)将PowerPoint 主题(PowerPoint Theme)设置在一个文件中，然后与所有人共享。
如何合并多个 PowerPoint(Multiple PowerPoint)演示文稿
我们有三种方法可以合并多个PowerPoint文件。当您的数字较少时，第一个很好，并且保留格式是主要目标。第二个可以组合文件夹中可用的任意数量的文件。
- 重用幻灯片方法
- VBA代码方法
- 复制粘贴幻灯片。
每种方法都有其优点和缺点。明智地选择。(Choose)
1]重用幻灯片方法
Microsoft PowerPoint提供了一个内置工具——重用幻灯片。(Reuse Slides.)它允许您将单个或多个幻灯片从另一个导入到您的演示文稿中，而无需打开另一个文件。使用此选项时，请确保选择格式化选项，特别是如果您希望与源文件具有相同的主题。
- 打开要合并幻灯片的新Powerpoint文件或现有文件。(Powerpoint)
- 选择要从源文件插入幻灯片的幻灯片。
- 转到Home > New Slide > Reuse Slide.
- 浏览(Browse)以选择要合并的文件。然后单击箭头按钮。
- 它将显示该幻灯片上所有可用的面。
- 单击(Click)要插入的幻灯片，它将立即添加到幻灯片中。
- 如果您想保持格式与源幻灯片完全相同，请选中“保持源格式(Keep source formatting)”框。
您在此处添加的任何幻灯片都是副本。源文件保持不变，不会对其进行任何更改。您在合并文档中所做的任何更改都不会在原始文件中可用。
使用此方法导入的最佳部分之一是它将保留所有动画或过渡。(it will keep all animations or transitions.)以前不是这样，必须使用 Object 方法(use the Object method)，然后进行多种配置才能使其工作。对象方法(Object Method)仅在您想将多个文件打包为一个时才有用。
2] VBA代码方法
由于没有合并大量PowerPoint 演示文稿(PowerPoint Presentations)的本地方法，我们将不得不使用VBA代码，就像我们合并Excel文件的方式一样。与我们用于Excel的(Excel)VBA代码相比，它很简单，而且效果更好。该代码对我来说运行良好，我能够合并 3 个PowerPoint文件，价值 60 张幻灯片。
在要合并所有演示文稿的新的或现有的PowerPoint文件中，按(PowerPoint)ALT + F11
单击(Click)Insert > Module并将代码粘贴到该模块中。不要费心保存它。
Sub InsertAllSlides()
' Insert all slides from all presentations in the same folder as this one
' INTO this one; do not attempt to insert THIS file into itself, though.
Dim vArray() As String
Dim x As Long
' Change "*.PPT" to "*.PPTX" or whatever if necessary:
EnumerateFiles ActivePresentation.Path & "C:\PathtoSlidesYouWanttoImport", "*.PPT", vArray
With ActivePresentation
For x = 1 To UBound(vArray)
If Len(vArray(x)) > 0 Then
.Slides.InsertFromFile vArray(x), .Slides.Count
End If
Next
End With
End Sub
Sub EnumerateFiles(ByVal sDirectory As String, _
ByVal sFileSpec As String, _
ByRef vArray As Variant)
' collect all files matching the file spec into vArray, an array of strings
Dim sTemp As String
ReDim vArray(1 To 1)
sTemp = Dir$(sDirectory & sFileSpec)
Do While Len(sTemp) > 0
' NOT the "mother ship" ... current presentation
If sTemp <> ActivePresentation.Name Then
ReDim Preserve vArray(1 To UBound(vArray) + 1)
vArray(UBound(vArray)) = sDirectory & sTemp
End If
sTemp = Dir$
Loop
End Sub
进行我标记为粗体的更改。
按 F5(Press F5)，它将执行代码
它将从该文件夹中的所有可用文件中导入所有幻灯片。但是，它会丢失格式。这是代码最大的问题，但它可以合并任意数量的文件，这是它最大的优势。 确保(Make)在导入完成后删除VBA代码。(VBA)代码来自 PPTFAQ.c0m。(by PPTFAQ.c0m.)
3]复制粘贴幻灯片
我有时会在有多个文件时使用它，通常少于三个，我只需要从中复制几张幻灯片。虽然您可以使用Ctrl + C和Ctrl + V，但您会丢失格式。因此，复制幻灯片后，右键单击目标文件的幻灯片列表部分并选择保留格式。
我希望所有这些方法都易于遵循，并且您能够合并多个PowerPoint文件。
确保(Make)根据需要在要合并的文件数量和幻灯片主题之间进行选择。(Theme)
阅读下一篇(Read next)：如何合并 Word 文档(How to Merge Word Documents)。
How to merge multiple PowerPoint Presentations into one
When a lоt of people work on multіple PowerPoint presentations and then need to merge them in the end, it becomes challenging. The primary reason is the formating. If the teams are not in sync with each other, it will become a painful job to bring them to the same format.
Microsoft PowerPoint offers an in-house solution just like Word and Excel, which will allow you to merge multiple PowerPoint presentations, and still keep the formatting intact. The right way to do this is to ask everyone to use the same theme. Make sure to set up the PowerPoint Theme in one file, and then share it with everyone.
How to Merge Multiple PowerPoint Presentations
We have three ways to merge multiple PowerPoint files. While the first one is good when you have fewer numbers, and preserving the formatting is the primary goal. The second can combine any number of files available in a folder.
- Reuse Slides Method
- VBA Code Method
- Copy Paste Slides.
Each method has its advantage and drawback. Choose wisely.
1] Reuse Slides Method
Microsoft PowerPoint offers an inbuilt tool— Reuse Slides. It allows you to import single or multiple slides to your presentation from another, without having to open the other file. When you use this option, make sure to choose the option for formatting, especially if you want to have the same theme as the source file.
- Open a new Powerpoint file or existing one where you want to merge the slides.
- Select the slide after which you want to insert the slides from the source file.
- Go to Home > New Slide > Reuse Slide.
- Browse to select the file which you want to merge. Then click on the arrow button.
- It will reveal all the sides available on that slide.
- Click on the slide you want to insert, and it will be instantly added to the slide.
- If you want to keep the format exactly as the source slide, check the box which says, “Keep source formatting.”
Any slide you add here is a copy. The source file remains intact, and no changes will be made to it. Any change you make in the merged document will not become available in the original file.
One of the best parts of importing using this method is that it will keep all animations or transitions. It wasn’t the case earlier, and one had to use the Object method, followed by multiple configurations to make it work. Object Method is only useful if you want to pack multiple files into one.
2] VBA Code Method
Since there is no native method to merge numerous PowerPoint Presentations, we will have to use a VBA code, just like how we did to merge Excel files. It is straight forward and works better compared to the VBA code we used for Excel. The code worked fine for me well, and I was able to merge 3 PowerPoint files worth 60 slides.
In the new or existing PowerPoint file where you want to merge all the presentations, press ALT + F11
Click in Insert > Module and paste the code inside that module. Do not bother saving it.
Sub InsertAllSlides()
' Insert all slides from all presentations in the same folder as this one
' INTO this one; do not attempt to insert THIS file into itself, though.
Dim vArray() As String
Dim x As Long
' Change "*.PPT" to "*.PPTX" or whatever if necessary:
EnumerateFiles ActivePresentation.Path & "C:\PathtoSlidesYouWanttoImport", "*.PPT", vArray
With ActivePresentation
For x = 1 To UBound(vArray)
If Len(vArray(x)) > 0 Then
.Slides.InsertFromFile vArray(x), .Slides.Count
End If
Next
End With
End Sub
Sub EnumerateFiles(ByVal sDirectory As String, _
ByVal sFileSpec As String, _
ByRef vArray As Variant)
' collect all files matching the file spec into vArray, an array of strings
Dim sTemp As String
ReDim vArray(1 To 1)
sTemp = Dir$(sDirectory & sFileSpec)
Do While Len(sTemp) > 0
' NOT the "mother ship" ... current presentation
If sTemp <> ActivePresentation.Name Then
ReDim Preserve vArray(1 To UBound(vArray) + 1)
vArray(UBound(vArray)) = sDirectory & sTemp
End If
sTemp = Dir$
Loop
End Sub
Make the changes that I have marked as bold.
Press F5, and it will execute the code
It will import all the slides from all the files available in that folder. However, it will lose the formating. That is the biggest problem with the code, but it can merge any number of files, which is its most significant advantage. Make sure to remove the VBA code once the import is complete. The code is by PPTFAQ.c0m.
3] Copy Paste Slides
I use this sometimes when there are multiple files, usually less than three, and I need to copy only a few slides from them. While you can use Ctrl + C and Ctrl + V, but you will lose formatting. So after you copy the slide, right-click on the slide list section of the destination file and select keep the format.
I hope all these methods were easy to follow, and you were able to merge multiple PowerPoint files.
Make sure to choose between the number of files to merge and the Theme of the slide as per your need.
Read next: How to Merge Word Documents.
