Sådan flettes flere PowerPoint-præsentationer til én

Når mange mennesker arbejder på flere PowerPoint-præsentationer(PowerPoint presentations) og så skal flette dem sammen til sidst, bliver det udfordrende. Den primære årsag er formateringen. Hvis holdene ikke er synkroniserede med hinanden, vil det blive en smertefuld opgave at bringe dem til samme format.

Microsoft PowerPoint tilbyder en intern løsning ligesom Word og Excel , som giver dig mulighed for at flette flere PowerPoint - præsentationer og stadig bevare formateringen intakt. Den rigtige måde at gøre dette på er at bede alle om at bruge det samme tema. Sørg(Make) for at konfigurere PowerPoint-temaet(PowerPoint Theme) i én fil, og del det derefter med alle.

Sådan flettes flere PowerPoint-(Multiple PowerPoint) præsentationer

Vi har tre måder at flette flere PowerPoint- filer på. Mens den første er god, når du har færre tal, og bevarelse af formateringen er det primære mål. Den anden kan kombinere et hvilket som helst antal filer, der er tilgængelige i en mappe.

  1. Genbrug slides-metoden
  2. VBA kode metode
  3. Kopiér indsæt dias.

Hver metode har sine fordele og ulemper. Vælg(Choose) med omhu.

1] Genbrug slides-metoden

Sådan flettes flere PowerPoint-præsentationer

Microsoft PowerPoint tilbyder et indbygget værktøj - Genbrug slides. (Reuse Slides.)Det giver dig mulighed for at importere enkelte eller flere dias til din præsentation fra en anden, uden at skulle åbne den anden fil. Når du bruger denne mulighed, skal du sørge for at vælge indstillingen for formatering, især hvis du vil have det samme tema som kildefilen.

  1. Åbn en ny Powerpoint -fil eller en eksisterende, hvor du vil flette diaserne.
  2. Vælg det dias, hvorefter du vil indsætte diasene fra kildefilen.
  3. Gå til Home > New Slide > Reuse Slide.
  4. Gennemse(Browse) for at vælge den fil, du vil flette. Klik derefter på pileknappen.
  5. Det vil afsløre alle sider, der er tilgængelige på det dias.
  6. Klik(Click) på det dias, du vil indsætte, og det vil øjeblikkeligt blive tilføjet til diaset.
  7. Hvis du vil beholde formatet nøjagtigt som kildediasset, skal du markere afkrydsningsfeltet, der siger " Fortsæt med kildeformatering(Keep source formatting) ."

Ethvert dias, du tilføjer her, er en kopi. Kildefilen forbliver intakt, og der vil ikke blive foretaget ændringer i den. Enhver ændring, du foretager i det flettede dokument, bliver ikke tilgængelig i den originale fil.

En af de bedste dele af import ved hjælp af denne metode er, at den vil beholde alle animationer eller overgange. (it will keep all animations or transitions.)Det var ikke tilfældet tidligere, og man skulle bruge Object-metoden(use the Object method) efterfulgt af flere konfigurationer for at få det til at virke. Objektmetoden(Object Method) er kun nyttig, hvis du vil pakke flere filer i én.

2] VBA-kodemetode

Da der ikke er nogen indbygget metode til at flette adskillige PowerPoint-præsentationer(PowerPoint Presentations) , bliver vi nødt til at bruge en VBA -kode, ligesom vi gjorde for at flette Excel - filer. Det er ligetil og fungerer bedre sammenlignet med den VBA -kode, vi brugte til Excel . Koden fungerede fint for mig, og jeg var i stand til at flette 3 PowerPoint - filer til en værdi af 60 slides.

Flet flere præsentationer ved hjælp af VBA-kode

I den nye eller eksisterende PowerPoint -fil, hvor du vil flette alle præsentationerne, skal du trykke på ALT + F11

Klik(Click)Insert > Module og indsæt koden i det pågældende modul. Gider ikke gemme det.

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

Foretag de ændringer, som jeg har markeret som fed.

Tryk på F5(Press F5) , og det vil udføre koden

Det vil importere alle dias fra alle de tilgængelige filer i den mappe. Det vil dog miste formateringen. Det er det største problem med koden, men den kan flette et hvilket som helst antal filer, hvilket er dens største fordel.  Sørg(Make) for at fjerne VBA -koden, når importen er fuldført. Koden er af PPTFAQ.c0m.(by PPTFAQ.c0m.)

3] Kopier Sæt ind Slides

Fortsæt med at formatere kilden PowerPoint-præsentation

Jeg bruger dette nogle gange, når der er flere filer, normalt mindre end tre, og jeg behøver kun at kopiere nogle få dias fra dem. Mens du kan bruge Ctrl + C og Ctrl + V , men du vil miste formatering. Så efter du har kopieret diaset, skal du højreklikke på diaslistesektionen i destinationsfilen og vælge behold formatet.

Jeg håber, at alle disse metoder var nemme at følge, og at du var i stand til at flette flere PowerPoint- filer.

Sørg(Make) for at vælge mellem antallet af filer, der skal flettes, og temaet(Theme) for diaset efter dit behov.

Læs næste(Read next) : Sådan flettes Word-dokumenter(How to Merge Word Documents) .



About the author

Jeg er datamatiker med over 10 års erfaring i at udvikle og vedligeholde software til smartphones og Windows 11/10. Jeg har også været involveret i Google Chrome siden begyndelsen af ​​2014 som ledende ingeniør. I den rolle var jeg med til at skabe nogle af de mest populære browsere på platformen. Derudover har jeg arbejdet på spilmotorer i et par år nu, og jeg er i øjeblikket en kandidatstuderende, der arbejder på et projekt, der i sidste ende kunne bringe virtual reality til dit skrivebord.



Related posts