Lorsque de nombreuses personnes travaillent sur plusieurs présentations PowerPoint^{(PowerPoint presentations)} et doivent ensuite les fusionner à la fin, cela devient difficile. La principale raison est le formatage. Si les équipes ne sont pas synchronisées les unes avec les autres, cela deviendra un travail pénible de les amener au même format.

Microsoft PowerPoint propose une solution interne, tout comme Word et Excel , qui vous permettra de fusionner plusieurs présentations PowerPoint tout en conservant la mise en forme intacte. La bonne façon de procéder est de demander à tout le monde d'utiliser le même thème. Assurez^(Make) -vous de configurer le thème PowerPoint^{(PowerPoint Theme)} dans un seul fichier, puis partagez-le avec tout le monde.

Comment fusionner plusieurs présentations PowerPoint^{(Multiple PowerPoint)}

Nous avons trois façons de fusionner plusieurs fichiers PowerPoint . Alors que le premier est bon lorsque vous avez moins de chiffres, et préserver le formatage est l'objectif principal. Le second peut combiner n'importe quel nombre de fichiers disponibles dans un dossier.

Méthode de réutilisation des diapositives
Méthode de code VBA
Copier coller des diapositives.

Chaque méthode a son avantage et son inconvénient. Choisissez^(Choose) judicieusement.

1] Méthode de réutilisation des diapositives

Comment fusionner plusieurs présentations PowerPoint

Microsoft PowerPoint propose un outil intégré : réutiliser les diapositives. ^{(Reuse Slides.)}Il vous permet d'importer une ou plusieurs diapositives dans votre présentation à partir d'une autre, sans avoir à ouvrir l'autre fichier. Lorsque vous utilisez cette option, assurez-vous de choisir l'option de formatage, surtout si vous souhaitez avoir le même thème que le fichier source.

Ouvrez un nouveau fichier Powerpoint ou un fichier existant dans lequel vous souhaitez fusionner les diapositives.
Sélectionnez la diapositive après laquelle vous souhaitez insérer les diapositives du fichier source.
Accédez à Home > New Slide > Reuse Slide.
Parcourez^(Browse) pour sélectionner le fichier que vous souhaitez fusionner. Cliquez ensuite sur le bouton fléché.
Il révélera tous les côtés disponibles sur cette diapositive.
Cliquez^(Click) sur la diapositive que vous souhaitez insérer et elle sera instantanément ajoutée à la diapositive.
Si vous souhaitez conserver le format exactement comme la diapositive source, cochez la case qui dit, « Conserver la mise en forme source^{(Keep source formatting)} ».

Toute diapositive que vous ajoutez ici est une copie. Le fichier source reste intact et aucune modification ne lui sera apportée. Toute modification apportée au document fusionné ne sera pas disponible dans le fichier d'origine.

L'une des meilleures parties de l'importation à l'aide de cette méthode est qu'elle conservera toutes les animations ou transitions. ^{(it will keep all animations or transitions.)}Ce n'était pas le cas auparavant, et il fallait utiliser la méthode Object^{(use the Object method)} , suivie de plusieurs configurations pour que cela fonctionne. La méthode objet^{(Object Method)} n'est utile que si vous souhaitez regrouper plusieurs fichiers en un seul.

2] Méthode de code VBA

Puisqu'il n'y a pas de méthode native pour fusionner de nombreuses présentations PowerPoint^{(PowerPoint Presentations)} , nous devrons utiliser un code VBA , tout comme nous l'avons fait pour fusionner des fichiers Excel . Il est simple et fonctionne mieux que le code VBA que nous avons utilisé pour ^(VBA)Excel . Le code a bien fonctionné pour moi et j'ai pu fusionner 3 fichiers PowerPoint d'une valeur de 60 diapositives.

Fusionner plusieurs présentations à l'aide du code VBA

Dans le fichier PowerPoint^(PowerPoint) nouveau ou existant où vous souhaitez fusionner toutes les présentations, appuyez sur ALT + F11

Cliquez^(Click) sur Insert > Module et collez le code à l'intérieur de ce module. Ne vous embêtez pas à le sauvegarder.

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

Apportez les modifications que j'ai marquées en gras.

Appuyez sur F5^{(Press F5)} et il exécutera le code

Il importera toutes les diapositives de tous les fichiers disponibles dans ce dossier. Cependant, il perdra le formatage. C'est le plus gros problème avec le code, mais il peut fusionner n'importe quel nombre de fichiers, ce qui est son avantage le plus significatif. Assurez^(Make) -vous de supprimer le code VBA une fois l'importation terminée. ^(VBA)Le code est de PPTFAQ.c0m.^{(by PPTFAQ.c0m.)}

3] Copier coller des diapositives

Conserver la présentation PowerPoint de mise en forme de la source

Je l'utilise parfois lorsqu'il y a plusieurs fichiers, généralement moins de trois, et je n'ai besoin d'en copier que quelques diapositives. Bien que vous puissiez utiliser Ctrl + C et Ctrl + V , vous perdrez la mise en forme. Ainsi, après avoir copié la diapositive, cliquez avec le bouton droit sur la section de la liste des diapositives du fichier de destination et sélectionnez conserver le format.

J'espère que toutes ces méthodes ont été faciles à suivre et que vous avez pu fusionner plusieurs fichiers PowerPoint .

Assurez^(Make) -vous de choisir entre le nombre de fichiers à fusionner et le thème^(Theme) de la diapositive selon vos besoins.

Lire ensuite^{(Read next)} : Comment fusionner des documents 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.

Reuse Slides Method
VBA Code Method
Copy Paste Slides.

Each method has its advantage and drawback. Choose wisely.

1] Reuse Slides Method

How to merge multiple PowerPoint Presentations

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.

Merge Multiple Presentation using VBA Code

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

Keep Source Formatting PowerPoint Presentation

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.

Gaël Lacroix

About the author

Je suis un technicien en informatique avec plus de 10 ans d'expérience, dont 3 ans en tant que 店員. J'ai de l'expérience avec les appareils Apple et Android, et je suis particulièrement compétent dans la réparation et la mise à niveau des ordinateurs. J'aime aussi regarder des films sur mon ordinateur et utiliser mon iPhone pour prendre des photos et des vidéos.

Comment fusionner plusieurs présentations PowerPoint en une seule

Comment fusionner plusieurs présentations PowerPoint^{(Multiple PowerPoint)}