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

Microsoft PowerPoint предлага вътрешно решение, точно като Word и Excel , което ще ви позволи да обедините множество презентации на PowerPoint и да запазите форматирането непокътнато. Правилният начин да направите това е да помолите всички да използват една и съща тема. Уверете^(Make) се, че сте настроили темата на PowerPoint^{(PowerPoint Theme)} в един файл и след това я споделете с всички.

Как да обедините няколко PowerPoint^{(Multiple 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 кода, който използвахме за 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 или PowerPoint не можаха да стартират последния път

• Как да свържете една презентация на PowerPoint с друга

• PowerPoint не реагира, продължава да се срива, замръзва или виси

• Как да създадете предварителна настройка за дизайн или тема в PowerPoint

• Как да изчистите клипборда в Excel, Word или PowerPoint

• Как да размажете част от снимка с PowerPoint

• Как да групирате или разгрупирате обекти в PowerPoint Online и Google Slides

• Как да отстъпите и подравните Bullet Points в PowerPoint

• Как да свържете елементи, съдържание или обекти към слайд на PowerPoint

• Как да направите мисловна карта в Microsoft PowerPoint

• Как да промените снимка, без да губите размера и позицията в PowerPoint

• Как да създадете организационна диаграма в PowerPoint

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

• Как да промените файловия формат по подразбиране за запис в Word, Excel, PowerPoint

• Как да сравнявате и обединявате PowerPoint презентации

• Как да разделите картина на парчета в PowerPoint

• Преобразувайте Word, PowerPoint, Excel документи в PDF с помощта на Google Docs

• Как да използвате Measurement Converter в Microsoft Office