Когда много людей работают над несколькими Презентации PowerPoint а потом нужно объединить их, в конце концов, становится сложно. Основная причина - формирование. Если команды не синхронизированы друг с другом, привести их к одному формату станет болезненной работой.
Microsoft PowerPoint предлагает собственное решение, такое же, как Word и Excel, которое позволит вам объединить несколько презентаций PowerPoint, сохранив при этом форматирование. Правильный способ сделать это - попросить всех использовать одну и ту же тему. Обязательно настройте тему PowerPoint в одном файле, а затем поделитесь им со всеми.
Как объединить несколько презентаций PowerPoint
У нас есть три способа объединить несколько файлов PowerPoint. Хотя первый хорош, когда у вас меньше чисел, и сохранение форматирования является основной целью. Второй может объединять любое количество файлов, имеющихся в папке.
- Метод повторного использования слайдов
- Метод кода VBA
- Копировать Вставить слайды.
У каждого метода есть свои преимущества и недостатки. Выбирать мудро.
1] Метод повторного использования слайдов
Microsoft PowerPoint предлагает встроенный инструмент- Повторное использование слайдов. Это позволяет вам импортировать один или несколько слайдов в вашу презентацию из другой, без необходимости открывать другой файл. Когда вы используете эту опцию, не забудьте выбрать опцию форматирования, особенно если вы хотите иметь ту же тему, что и исходный файл.
- Откройте новый файл Powerpoint или существующий, в котором вы хотите объединить слайды.
- Выберите слайд, после которого вы хотите вставить слайды из исходного файла.
- Перейти к На главную> Новый слайд> Повторное использование слайда.
- Найдите и выберите файл, который вы хотите объединить. Затем нажмите кнопку со стрелкой.
- Откроются все стороны, доступные на этом слайде.
- Щелкните слайд, который хотите вставить, и он будет мгновенно добавлен к слайду.
- Если вы хотите, чтобы формат был точно таким же, как у исходного слайда, установите флажок «Сохранить исходное форматирование.”
Любой добавленный сюда слайд является копией. Исходный файл останется нетронутым, и в него не будут внесены никакие изменения. Любые изменения, внесенные в объединенный документ, не будут доступны в исходном файле.
Одна из лучших частей импорта с использованием этого метода заключается в том, что он сохранит всю анимацию или переходы. Раньше этого не было, и нужно было использовать метод Object, а затем несколько конфигураций, чтобы заставить его работать. Объектный метод полезен только в том случае, если вы хотите упаковать несколько файлов в один.
2] Метод кода VBA
Поскольку нет собственного метода для объединения множества презентаций PowerPoint, нам придется использовать код VBA, как мы это делали для объединения файлов Excel. Он прост и работает лучше по сравнению с кодом VBA, который мы использовали для Excel. Код работал у меня хорошо, и я смог объединить 3 файла PowerPoint на 60 слайдов.
В новом или существующем файле PowerPoint, в котором вы хотите объединить все презентации, нажмите ALT + F11
Щелкните Вставить> Модуль и вставьте код в этот модуль. Не пытайтесь сохранить это.
Sub InsertAllSlides () 'Вставить все слайды из всех презентаций в ту же папку, что и эта' В эту; не пытайтесь вставить ЭТО файл в себя, хотя. Dim vArray () As String Dim x As Long ' Изменять "*.PPT "в" *.PPTX »или что-то еще, если необходимо: EnumerateFiles ActivePresentation.Дорожка & "C: \ PathtoSlidesYouWanttoImport", "*.PPT ", vArray с ActivePresentation For x = 1 To UBound (vArray) If Len (vArray (x))> 0 Then .Слайды.InsertFromFile vArray (x), .Слайды.Count End If Next End With End Sub Sub EnumerateFiles (ByVal sDirectory As String, _ ByVal sFileSpec As String, _ ByRef vArray As Variant) 'собрать все файлы, соответствующие спецификации файла, в vArray, массив строк Dim sTemp As String ReDim vArray ( От 1 до 1) sTemp = Dir $ (sDirectory & sFileSpec) Do While Len (sTemp)> 0 'НЕ "материнский корабль"… текущая презентация Если 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.