Hur man slår samman flera PowerPoint-presentationer till en

När många människor arbetar med flera PowerPoint-presentationer(PowerPoint presentations) och sedan behöver slå ihop dem till slut, blir det utmanande. Det främsta skälet är formateringen. Om lagen inte är synkad med varandra kommer det att bli ett smärtsamt jobb att få dem till samma format.

Microsoft PowerPoint erbjuder en intern lösning precis som Word och Excel , som gör att du kan slå samman flera PowerPoint- presentationer och fortfarande behålla formateringen intakt. Det rätta sättet att göra detta är att be alla använda samma tema. Se(Make) till att konfigurera PowerPoint-temat(PowerPoint Theme) i en fil och dela det sedan med alla.

Hur man slår ihop flera PowerPoint-(Multiple PowerPoint) presentationer

Vi har tre sätt att slå samman flera PowerPoint- filer. Medan den första är bra när du har färre nummer, och att bevara formateringen är det primära målet. Den andra kan kombinera valfritt antal filer som är tillgängliga i en mapp.

  1. Återanvänd Slides Method
  2. VBA-kodmetod
  3. Kopiera klistra in bilder.

Varje metod har sina fördelar och nackdelar. Välj(Choose) klokt.

1] Återanvänd metod för objektglas

Hur man slår ihop flera PowerPoint-presentationer

Microsoft PowerPoint erbjuder ett inbyggt verktyg — Återanvänd bilder. (Reuse Slides.)Det låter dig importera enstaka eller flera bilder till din presentation från en annan, utan att behöva öppna den andra filen. När du använder det här alternativet, se till att välja alternativet för formatering, särskilt om du vill ha samma tema som källfilen.

  1. Öppna en ny Powerpoint -fil eller befintlig där du vill slå samman bilderna.
  2. Välj den bild efter vilken du vill infoga bilderna från källfilen.
  3. Gå till Home > New Slide > Reuse Slide.
  4. Bläddra(Browse) för att välja filen som du vill slå samman. Klicka sedan på pilknappen.
  5. Det kommer att avslöja alla tillgängliga sidor på den bilden.
  6. Klicka(Click) på bilden du vill infoga så läggs den direkt till bilden.
  7. Om du vill behålla formatet exakt som källbilden, markera rutan som säger " Fortsätt källformatering(Keep source formatting) ."

Alla bilder du lägger till här är en kopia. Källfilen förblir intakt och inga ändringar kommer att göras i den. Alla ändringar du gör i det sammanslagna dokumentet blir inte tillgängliga i originalfilen.

En av de bästa delarna med att importera med den här metoden är att den kommer att behålla alla animationer eller övergångar. (it will keep all animations or transitions.)Det var inte fallet tidigare, och man var tvungen att använda Object-metoden(use the Object method) följt av flera konfigurationer för att få det att fungera. Objektmetod(Object Method) är bara användbar om du vill packa flera filer till en.

2] VBA-kodmetod

Eftersom det inte finns någon inbyggd metod för att slå samman många PowerPoint-presentationer(PowerPoint Presentations) måste vi använda en VBA -kod, precis som vi gjorde för att slå samman Excel- filer. Det är enkelt och fungerar bättre jämfört med VBA -koden vi använde för Excel . Koden fungerade bra för mig och jag kunde slå samman 3 PowerPoint- filer värda 60 bilder.

Slå samman flera presentationer med VBA-kod

I den nya eller befintliga PowerPoint -filen där du vill slå samman alla presentationer, tryck ALT + F11

Klicka(Click)Insert > Module och klistra in koden i den modulen. Bry dig inte om att spara den.

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

Gör ändringarna som jag har markerat som fetstil.

Tryck på F5(Press F5) så körs koden

Det kommer att importera alla bilder från alla filer som är tillgängliga i den mappen. Det kommer dock att förlora formateringen. Det är det största problemet med koden, men den kan slå ihop hur många filer som helst, vilket är dess största fördel.  Se(Make) till att ta bort VBA -koden när importen är klar. Koden är av PPTFAQ.c0m.(by PPTFAQ.c0m.)

3] Kopiera klistra in bilder

Fortsätt formatera källformat PowerPoint-presentation

Jag använder detta ibland när det finns flera filer, vanligtvis färre än tre, och jag behöver bara kopiera några bilder från dem. Även om du kan använda Ctrl + C och Ctrl + V , men du kommer att förlora formatering. Så efter att du kopierat bilden, högerklickar du på bildlistan i målfilen och väljer behåll formatet.

Jag hoppas att alla dessa metoder var lätta att följa, och att du kunde slå samman flera PowerPoint- filer.

Se(Make) till att välja mellan antalet filer som ska slås samman och temat(Theme) för bilden enligt dina behov.

Läs nästa(Read next) : Hur man sammanfogar Word-dokument(How to Merge Word Documents) .



About the author

Jag är en datorexpert och har hjälpt människor med sin dator sedan 2009. Mina kunskaper inkluderar iphone, mjukvara, prylar och mer. Jag har också arbetat som instruktör de senaste fyra åren. Under den tiden har jag lärt mig hur man hjälper människor att lära sig nya program och hur man använder sina enheter på ett professionellt sätt. Jag tycker om att ge tips om hur jag kan förbättra mina kunskaper så att alla kan bli framgångsrika på jobbet eller i skolan.



Related posts