Phenquestions
Wanneer veel mensen aan meerdere werken PowerPoint-presentaties en dan moet je ze uiteindelijk samenvoegen, wordt het een uitdaging. De belangrijkste reden is de opmaak. Als de teams niet synchroon met elkaar zijn, wordt het een pijnlijke klus om ze naar hetzelfde formaat te brengen.
Microsoft PowerPoint biedt een interne oplossing, net als Word en Excel, waarmee u meerdere PowerPoint-presentaties kunt samenvoegen en toch de opmaak intact kunt houden. De juiste manier om dit te doen, is door iedereen te vragen hetzelfde thema te gebruiken. Zorg ervoor dat u het PowerPoint-thema in één bestand instelt en deel het vervolgens met iedereen.
Meerdere PowerPoint-presentaties samenvoegen
We hebben drie manieren om meerdere PowerPoint-bestanden samen te voegen. Hoewel de eerste goed is als je minder getallen hebt, en het behoud van de opmaak het primaire doel is. De tweede kan een willekeurig aantal bestanden combineren die beschikbaar zijn in een map.
- Methode voor dia's hergebruiken
- VBA-codemethode
- Kopieer en plak dia's.
Elke methode heeft zijn voor- en nadelen. Kies verstandig.
1] Methode voor hergebruik van dia's
Microsoft PowerPoint biedt een ingebouwde tool- Dia's opnieuw gebruiken. Hiermee kunt u enkele of meerdere dia's van een andere naar uw presentatie importeren, zonder dat u het andere bestand hoeft te openen. Wanneer u deze optie gebruikt, zorg er dan voor dat u de optie voor opmaak kiest, vooral als u hetzelfde thema wilt hebben als het bronbestand.
- Open een nieuw PowerPoint-bestand of een bestaand bestand waarin u de dia's wilt samenvoegen.
- Selecteer de dia waarna u de dia's uit het bronbestand wilt invoegen.
- Ga naar Home > Nieuwe dia > Dia opnieuw gebruiken.
- Blader om het bestand te selecteren dat u wilt samenvoegen. Klik vervolgens op de pijlknop.
- Het zal alle beschikbare zijden op die dia onthullen.
- Klik op de dia die u wilt invoegen en deze wordt direct aan de dia toegevoegd.
- Als u het formaat precies zoals de brondia wilt behouden, vinkt u het vakje aan dat zegt: "Bronopmaak behouden.”
Elke dia die u hier toevoegt, is een kopie. Het bronbestand blijft intact en er worden geen wijzigingen in aangebracht. Elke wijziging die u in het samengevoegde document aanbrengt, wordt niet beschikbaar in het oorspronkelijke bestand.
Een van de beste onderdelen van het importeren met deze methode is dat: het behoudt alle animaties of overgangen. Vroeger was dit niet het geval, en men moest de Object-methode gebruiken, gevolgd door meerdere configuraties om het te laten werken. Objectmethode is alleen handig als u meerdere bestanden in één wilt verpakken.
2] VBA-codemethode
Aangezien er geen native methode is om meerdere PowerPoint-presentaties samen te voegen, zullen we een VBA-code moeten gebruiken, net zoals we deden om Excel-bestanden samen te voegen. Het is ongecompliceerd en werkt beter in vergelijking met de VBA-code die we voor Excel hebben gebruikt. De code werkte prima voor mij en ik kon 3 PowerPoint-bestanden samenvoegen met een waarde van 60 dia's.
In het nieuwe of bestaande PowerPoint-bestand waar u alle presentaties wilt samenvoegen, drukt u op ALT + F11
Klik in Invoegen > Module en plak de code in die module. Doe geen moeite om het op te slaan.
Sub InsertAllSlides() ' Voeg alle dia's van alle presentaties in dezelfde map in als deze ' INTO this; probeer echter niet DIT bestand in zichzelf in te voegen. Dim vArray() As String Dim x As Long ' Verandering "*.PPT" naar "*.PPTX" of wat dan ook indien nodig: EnumerateFiles ActivePresentation.Pad & "C:\PathtoSlidesYouWanttoImport", "*.PPT", vArray met ActivePresentation For x = 1 To UBound(vArray) If Len(vArray(x)) > 0 then .Dia's.InsertFromFile vArray(x), .Dia's.Count End If Next End With End Sub Sub EnumerateFiles (ByVal sDirectory As String, _ ByVal sFileSpec As String, _ ByRef vArray As Variant) ' verzamel alle bestanden die overeenkomen met de bestandsspecificatie in vArray, een array van strings Dim sTemp As String ReDim vArray( 1 To 1) sTemp = Dir$(sDirectory & sFileSpec) Do While Len(sTemp) > 0 ' NIET het "moederschip"... huidige presentatie Als sTemp <> ActivePresentation.Name Then Redim Preserve vArray(1 To UBound(vArray) + 1) vArray(UBound(vArray)) = sDirectory & sTemp End If sTemp = Dir$ Loop End Sub
Breng de wijzigingen aan die ik als vet heb gemarkeerd.
Druk op F5, en het zal de code uitvoeren
Het importeert alle dia's van alle bestanden die in die map beschikbaar zijn. Het zal echter de opmaak verliezen. Dat is het grootste probleem met de code, maar het kan een willekeurig aantal bestanden samenvoegen, wat het belangrijkste voordeel is. Zorg ervoor dat u de VBA-code verwijdert zodra het importeren is voltooid. De code is van PPTFAQ.c0m.
3] Kopieer en plak dia's
Ik gebruik dit soms als er meerdere bestanden zijn, meestal minder dan drie, en ik hoef er maar een paar dia's van te kopiëren. Hoewel je Ctrl + C en Ctrl + V kunt gebruiken, maar je verliest opmaak. Dus nadat u de dia hebt gekopieerd, klikt u met de rechtermuisknop op het gedeelte met de dialijst van het doelbestand en selecteert u de indeling behouden.
Ik hoop dat al deze methoden gemakkelijk te volgen waren en dat je meerdere PowerPoint-bestanden kon samenvoegen.
Zorg ervoor dat u kiest tussen het aantal bestanden dat u wilt samenvoegen en het thema van de dia, afhankelijk van uw behoefte.
Lees volgende: Word-documenten samenvoegen.
