Когда много людей работают над несколькими презентациями PowerPoint^{(PowerPoint presentations)} , а затем в конце концов нужно их объединить, это становится сложной задачей. Основная причина — форматирование. Если команды не синхронизированы друг с другом, привести их к одному формату станет мучительной работой.

Microsoft PowerPoint предлагает внутреннее решение, такое же, как Word и Excel , которое позволит вам объединить несколько презентаций PowerPoint , сохраняя при этом форматирование. Правильный способ сделать это — попросить всех использовать одну и ту же тему. Обязательно настройте тему ^(Make)PowerPoint^{(PowerPoint Theme)} в одном файле, а затем поделитесь им со всеми.

Как объединить несколько презентаций^{(Multiple PowerPoint)} PowerPoint

У нас есть три способа объединить несколько файлов PowerPoint . В то время как первый хорош, когда у вас меньше чисел, и сохранение форматирования является основной целью. Второй может объединять любое количество файлов, имеющихся в папке.

1. Метод повторного использования слайдов
2. Метод кода VBA
3. Скопируйте и вставьте слайды.

Каждый метод имеет свои преимущества и недостатки. Выбирайте^(Choose) с умом.

1] Метод повторного использования слайдов

Microsoft PowerPoint предлагает встроенный инструмент — повторное использование слайдов. ^{(Reuse Slides.)}Это позволяет вам импортировать один или несколько слайдов в вашу презентацию из другой, не открывая другой файл. Когда вы используете этот параметр, обязательно выберите вариант форматирования, особенно если вы хотите иметь ту же тему, что и исходный файл.

1. Откройте новый файл Powerpoint или существующий, в который вы хотите объединить слайды.
2. Выберите слайд, после которого вы хотите вставить слайды из исходного файла.
3. Перейдите в раздел « Home > New Slide > Reuse Slide.
4. Найдите^(Browse) и выберите файл, который вы хотите объединить. Затем нажмите на кнопку со стрелкой.
5. Он покажет все стороны, доступные на этом слайде.
6. Нажмите^(Click) на слайд, который вы хотите вставить, и он будет немедленно добавлен к слайду.
7. Если вы хотите сохранить формат исходного слайда, установите флажок « Сохранить исходное форматирование^{(Keep source formatting)} ».

Любой слайд, который вы добавляете сюда, является копией. Исходный файл остается нетронутым, и в него не будут внесены никакие изменения. Любые изменения, внесенные вами в объединенный документ, не будут доступны в исходном файле.

Одна из лучших частей импорта с использованием этого метода заключается в том, что он сохранит все анимации или переходы. ^{(it will keep all animations or transitions.)}Раньше такого не было, и приходилось использовать метод Object^{(use the Object method)} , а затем несколько конфигураций, чтобы заставить его работать. Объектный метод^{(Object Method)} полезен только в том случае, если вы хотите упаковать несколько файлов в один.

2] Метод кода VBA

Поскольку нет собственного метода для объединения многочисленных презентаций PowerPoint^{(PowerPoint Presentations)} , нам придется использовать код VBA , как мы это делали для объединения файлов Excel . Это просто и работает лучше по сравнению с кодом VBA , который мы использовали для ^(VBA)Excel . У меня код работал нормально, и я смог объединить 3 файла PowerPoint на 60 слайдов.

В новом или существующем файле 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 после завершения импорта. Код предоставлен 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 lot of people work on multiple 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.

1. Reuse Slides Method
2. VBA Code Method
3. 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.

1. Open a new Powerpoint file or existing one where you want to merge the slides.
2. Select the slide after which you want to insert the slides from the source file.
3. Go to Home > New Slide > Reuse Slide.
4. Browse to select the file which you want to merge. Then click on the arrow button.
5. It will reveal all the sides available on that slide.
6. Click on the slide you want to insert, and it will be instantly added to the slide.
7. 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.

Related posts

• Как изменить размер слайда в PowerPoint для лучшей презентации

• Как размыть картинку в PowerPoint

• Excel, Word or PowerPoint не мог начать в прошлый раз

• Как связать один PowerPoint presentation на другой

• PowerPoint не отвечает, замораживает, висит или перестал работать

• Как отремонтировать коррумпированный PowerPoint file

• Как создать Org chart в PowerPoint

• Как изменить Background в PowerPoint

• Как связать элементы, Content or Objects к PowerPoint slide

• Как размыть часть картины с PowerPoint

• Как отформатировать и изменить Slide layout в PowerPoint сразу

• Как использовать Measurement Converter в Microsoft Office

• Как изменить Slide size and orientation в PowerPoint

• Как сжать PowerPoint file на Windows 10

• Convert Word, PowerPoint, Excel Documents в PDF с использованием Google Docs

• Как я могу скрыть Audio icon в PowerPoint

• Как добавить кренющие кредиты в PowerPoint presentation

• Как создать Photo Album в PowerPoint

• Как сделать Flowchart в PowerPoint

• Как исправить PowerPoint не может сохранить file error