Όταν πολλοί άνθρωποι εργάζονται σε πολλές παρουσιάσεις PowerPoint^{(PowerPoint presentations)} και στη συνέχεια πρέπει να τις συγχωνεύσουν στο τέλος, γίνεται πρόκληση. Ο πρωταρχικός λόγος είναι η διαμόρφωση. Εάν οι ομάδες δεν είναι συγχρονισμένες μεταξύ τους, θα γίνει επίπονη δουλειά να τις φέρεις στην ίδια μορφή.

Το Microsoft PowerPoint^{(Microsoft PowerPoint)} προσφέρει μια εσωτερική λύση όπως το Word και το Excel^(Excel) , η οποία θα σας επιτρέψει να συγχωνεύσετε πολλές παρουσιάσεις PowerPoint και να διατηρήσετε ανέπαφη τη μορφοποίηση. Ο σωστός τρόπος για να το κάνετε αυτό είναι να ζητήσετε από όλους να χρησιμοποιήσουν το ίδιο θέμα. Φροντίστε^(Make) να ρυθμίσετε το Θέμα PowerPoint^{(PowerPoint Theme)} σε ένα αρχείο και, στη συνέχεια, να το μοιραστείτε με όλους.

Πώς να συγχωνεύσετε πολλές^{(Multiple PowerPoint)} παρουσιάσεις PowerPoint

Έχουμε τρεις τρόπους για να συγχωνεύσουμε πολλά αρχεία PowerPoint . Ενώ το πρώτο είναι καλό όταν έχετε λιγότερους αριθμούς και η διατήρηση της μορφοποίησης είναι ο πρωταρχικός στόχος. Το δεύτερο μπορεί να συνδυάσει οποιονδήποτε αριθμό αρχείων που είναι διαθέσιμα σε έναν φάκελο.

1. Μέθοδος επαναχρησιμοποίησης διαφανειών
2. Μέθοδος κώδικα VBA
3. Αντιγραφή επικόλλησης διαφανειών.

Κάθε μέθοδος έχει τα πλεονεκτήματα και τα μειονεκτήματά της. Επιλέξτε^(Choose) με σύνεση.

1] Μέθοδος επαναχρησιμοποίησης διαφανειών

Το Microsoft PowerPoint^{(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.)}Δεν ίσχυε νωρίτερα και έπρεπε να χρησιμοποιήσει τη μέθοδο Αντικειμένου^{(use the Object method)} , ακολουθούμενη από πολλαπλές διαμορφώσεις για να λειτουργήσει. Η μέθοδος αντικειμένου^{(Object Method)} είναι χρήσιμη μόνο εάν θέλετε να συσκευάσετε πολλά αρχεία σε ένα.

2] Μέθοδος κώδικα VBA

Δεδομένου ότι δεν υπάρχει εγγενής μέθοδος για τη συγχώνευση πολλών παρουσιάσεων PowerPoint^{(PowerPoint Presentations)} , θα πρέπει να χρησιμοποιήσουμε έναν κώδικα VBA , όπως ακριβώς κάναμε για τη συγχώνευση αρχείων Excel . Είναι απλό και λειτουργεί καλύτερα σε σύγκριση με τον κώδικα VBA που χρησιμοποιήσαμε για ^(VBA)το Excel^(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 μόλις ολοκληρωθεί η εισαγωγή. ^(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

• Πώς να φτιάξετε ένα διάγραμμα ροής στο PowerPoint

• Πώς να εισαγάγετε ένα χρονόμετρο αντίστροφης μέτρησης σε μια παρουσίαση PowerPoint

• Μετατρέψτε έγγραφα Word, PowerPoint, Excel σε PDF χρησιμοποιώντας τα Έγγραφα Google

• Πώς να συμπιέσετε όλες τις εικόνες σε μια παρουσίαση PowerPoint

• Πώς να δημιουργήσετε και να χρησιμοποιήσετε τη γραμμή προόδου στο PowerPoint

• Τρόπος δημιουργίας εσοχής και ευθυγράμμισης κουκκίδων στο PowerPoint

• Πώς να συμπιέσετε ένα αρχείο PowerPoint στα Windows 11/10

• Πώς να δημιουργήσετε ένα εφέ κειμένου Mouseover στο PowerPoint

• Πώς να δημιουργήσετε και να εισαγάγετε μια πυραμίδα στο PowerPoint

• Πώς να χρησιμοποιήσετε το Measurement Converter στο Microsoft Office

• Πώς να χρησιμοποιήσετε το Presenter Coach στο Microsoft PowerPoint Online

• Μετατρέψτε το PDF σε PPT (PowerPoint) χρησιμοποιώντας αυτό το δωρεάν λογισμικό και ηλεκτρονικά εργαλεία

• Πώς να δημιουργήσετε έναν οδικό χάρτη στο PowerPoint

• Οδηγός PowerPoint για αρχάριους - Μάθετε πώς να το χρησιμοποιείτε