Jak połączyć wiele prezentacji PowerPoint w jedną?

Kiedy wiele osób pracuje nad wieloma prezentacjami PowerPoint(PowerPoint presentations) , a następnie musi je na końcu połączyć, staje się to trudne. Głównym powodem jest formatowanie. Jeśli zespoły nie są ze sobą zsynchronizowane, sprowadzenie ich do tego samego formatu będzie bolesną pracą.

Microsoft PowerPoint oferuje rozwiązanie wewnętrzne, takie jak Word i Excel , które umożliwia łączenie wielu prezentacji PowerPoint , przy jednoczesnym zachowaniu nienaruszonego formatowania. Właściwym sposobem na to jest poproszenie wszystkich o użycie tego samego motywu. Upewnij się, że (Make)motyw PowerPointa(PowerPoint Theme) został skonfigurowany w jednym pliku, a następnie udostępnij go wszystkim.

Jak połączyć wiele(Multiple PowerPoint) prezentacji PowerPoint

Mamy trzy sposoby łączenia wielu plików PowerPoint . Podczas gdy pierwszy jest dobry, gdy masz mniej liczb, a zachowanie formatowania jest głównym celem. Drugi może łączyć dowolną liczbę plików dostępnych w folderze.

  1. Metoda ponownego wykorzystania slajdów
  2. Metoda kodu VBA
  3. Kopiuj Wklej slajdy.

Każda metoda ma swoje zalety i wady. Wybierz(Choose) mądrze.

1] Metoda ponownego wykorzystania slajdów

Jak połączyć wiele prezentacji PowerPoint

Microsoft PowerPoint oferuje wbudowane narzędzie — Użyj ponownie slajdów. (Reuse Slides.)Umożliwia importowanie jednego lub wielu slajdów do prezentacji z innego, bez konieczności otwierania drugiego pliku. Korzystając z tej opcji, wybierz opcję formatowania, zwłaszcza jeśli chcesz mieć ten sam motyw, co plik źródłowy.

  1. Otwórz nowy plik PowerPoint lub istniejący, w którym chcesz scalić slajdy.
  2. Wybierz slajd, po którym chcesz wstawić slajdy z pliku źródłowego.
  3. Przejdź do strony Home > New Slide > Reuse Slide.
  4. Przeglądaj(Browse) , aby wybrać plik, który chcesz scalić. Następnie kliknij przycisk strzałki.
  5. Ujawni wszystkie strony dostępne na tym slajdzie.
  6. Kliknij(Click) slajd, który chcesz wstawić, a zostanie on natychmiast dodany do slajdu.
  7. Jeśli chcesz zachować format dokładnie taki, jak slajd źródłowy, zaznacz pole „ Zachowaj formatowanie źródła(Keep source formatting) ”.

Każdy slajd, który tutaj dodasz, jest kopią. Plik źródłowy pozostaje nienaruszony i nie zostaną w nim wprowadzone żadne zmiany. Wszelkie zmiany wprowadzone w scalonym dokumencie nie będą dostępne w oryginalnym pliku.

Jedną z najlepszych części importowania przy użyciu tej metody jest zachowanie wszystkich animacji lub przejść. (it will keep all animations or transitions.)Wcześniej tak nie było i trzeba było użyć metody Object(use the Object method) , a następnie wielu konfiguracji, aby to zadziałało. Metoda obiektowa(Object Method) jest użyteczna tylko wtedy, gdy chcesz spakować wiele plików w jeden.

2] Metoda kodu VBA

Ponieważ nie ma natywnej metody scalania wielu prezentacji PowerPoint(PowerPoint Presentations) , będziemy musieli użyć kodu VBA , podobnie jak w przypadku łączenia plików Excela . (Excel)Jest prosty i działa lepiej w porównaniu z kodem VBA , którego używaliśmy w programie Excel . Kod działał dobrze dla mnie i udało mi się połączyć 3 pliki PowerPointa(PowerPoint) o wartości 60 slajdów.

Scal wiele prezentacji za pomocą kodu VBA

W nowym lub istniejącym pliku PowerPoint , w którym chcesz scalić wszystkie prezentacje, naciśnij ALT + F11

Kliknij(Click) w Insert > Module i wklej kod wewnątrz tego modułu. Nie zawracaj sobie głowy zapisywaniem go.

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

Wprowadź zmiany, które zaznaczyłem jako pogrubione.

Naciśnij F5(Press F5) , a wykona kod

Zaimportuje wszystkie slajdy ze wszystkich plików dostępnych w tym folderze. Jednak straci formatowanie. To jest największy problem z kodem, ale potrafi on łączyć dowolną liczbę plików, co jest jego największą zaletą.  Pamiętaj, aby(Make) usunąć kod VBA po zakończeniu importu. Kod pochodzi z PPTFAQ.c0m.(by PPTFAQ.c0m.)

3] Kopiuj Wklej slajdy

Zachowaj formatowanie źródła Prezentacja PowerPoint

Używam tego czasami, gdy jest wiele plików, zwykle mniej niż trzy, i muszę z nich skopiować tylko kilka slajdów. Chociaż możesz użyć Ctrl + C i Ctrl + V , ale stracisz formatowanie. Po skopiowaniu slajdu kliknij prawym przyciskiem myszy sekcję listy slajdów pliku docelowego i wybierz opcję Zachowaj format.

Mam nadzieję, że wszystkie te metody były łatwe do naśladowania i udało Ci się połączyć wiele plików PowerPoint .

Upewnij(Make) się, że wybierasz między liczbą plików do scalenia a motywem(Theme) slajdu zgodnie z potrzebami.

Przeczytaj dalej(Read next) : Jak scalić dokumenty programu Word(How to Merge Word Documents) .



About the author

Jestem inżynierem oprogramowania i ekspertem od Windows 10. Mam ponad dwuletnie doświadczenie w pracy ze smartfonami, Windows 10 i Microsoft Edge. Moim głównym celem jest sprawienie, aby Twoje urządzenia działały lepiej i szybciej. Pracowałem przy różnych projektach dla firm takich jak Verizon, IMac, HP, Comcast i wielu innych. Jestem również certyfikowanym instruktorem szkoleń w chmurze Microsoft Azure.



Related posts