Как объединить несколько презентаций PowerPoint в одну

Когда много людей работают над несколькими Презентации PowerPoint а потом нужно их объединить, в конце концов становится сложно. Основная причина – форматирование. Если команды не синхронизированы друг с другом, приведение их к одному формату станет болезненной задачей.

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

Как объединить несколько презентаций PowerPoint

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

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

У каждого метода есть свои преимущества и недостатки. Выбирай с умом.

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

Microsoft PowerPoint предлагает встроенный инструмент – Повторное использование слайдов. Он позволяет импортировать в презентацию один или несколько слайдов из другой, не открывая другой файл. Когда вы используете эту опцию, не забудьте выбрать опцию форматирования, особенно если вы хотите иметь ту же тему, что и исходный файл.

1. Откройте новый файл Powerpoint или существующий, в котором вы хотите объединить слайды.
2. Выберите слайд, после которого вы хотите вставить слайды из исходного файла.
3. Идти к Главная> Новый слайд> Повторное использование слайда.
4. Найдите и выберите файл, который вы хотите объединить. Затем нажмите кнопку со стрелкой.
5. Это покажет все стороны, доступные на этом слайде.
6. Щелкните слайд, который хотите вставить, и он будет немедленно добавлен к слайду.
7. Если вы хотите, чтобы формат был точно таким же, как у исходного слайда, установите флажок «Сохранить исходное форматирование. »

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

Одна из лучших частей импорта с использованием этого метода заключается в том, что он сохранит всю анимацию или переходы. Раньше этого не было, и нужно было использовать метод Object, а затем несколько конфигураций, чтобы заставить его работать. Объектный метод полезен только в том случае, если вы хотите упаковать несколько файлов в один.

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

Поскольку нет собственного метода для объединения множества презентаций PowerPoint, нам придется использовать код VBA, точно так же, как мы это делали для объединения файлов Excel. Он прост и работает лучше по сравнению с кодом VBA, который мы использовали для Excel. Код работал у меня хорошо, и я смог объединить 3 файла PowerPoint на 60 слайдов.

В новом или существующем файле PowerPoint, в котором вы хотите объединить все презентации, нажмите ALT + F11.

Щелкните Вставить> Модуль и вставьте код в этот модуль. Не беспокойтесь о его сохранении.

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, и он выполнит код

Он импортирует все слайды из всех файлов, доступных в этой папке. Однако он потеряет форматирование. Это самая большая проблема с кодом, но он может объединять любое количество файлов, что является его самым значительным преимуществом. Обязательно удалите код VBA после завершения импорта. Код пользователя PPTFAQ.c0m.

3]Копировать Вставить слайды

Я использую это иногда, когда есть несколько файлов, обычно меньше трех, и мне нужно скопировать из них только несколько слайдов. Хотя вы можете использовать Ctrl + C и Ctrl + V, но вы потеряете форматирование. Поэтому после копирования слайда щелкните правой кнопкой мыши раздел списка слайдов в конечном файле и выберите «Сохранить формат».

Я надеюсь, что всем этим методам было легко следовать, и вы смогли объединить несколько файлов PowerPoint.

Обязательно выберите между количеством файлов для слияния и темой слайда в соответствии с вашими потребностями.

Читать дальше: Как объединить документы Word.