Jak tworzyć i dodawać slajdy do prezentacji PowerPoint za pomocą VBA?

Kilka dni temu czytelnik zapytał, czy istnieje sposób na zautomatyzowanie tworzenia prezentacji PowerPoint od podstaw, a następnie szybkie dodawanie slajdów do istniejącej prezentacji. Pomyślałem, że ten skrypt może być wysoko na liście najbardziej przydatnych makr PowerPointa. 

Jak wskazaliśmy w przeszłości, PowerPoint nie zawiera rejestratora makr (w przeciwieństwie do Excela i Worda, które mają wbudowane rejestratory makr). Dlatego pozostaje nam stary dobry Visual Basic for Application, którego możemy użyć do tworzenia prostych makr do automatyzacji PowerPoint. Istnieją dalsze alternatywy dla automatyzacji programu PowerPoint, ale wykraczają one poza zakres tego samouczka.

W dzisiejszym krótkim samouczku omówimy trzy różne przypadki użycia:

  1. Tworzenie nowej prezentacji (pusta lub przy użyciu szablonu)
  2. Dodaj slajdy do istniejącej prezentacji.
  3. Mieszanka dwóch wyżej wymienionych przypadków (Tworzenie od podstaw i dodawanie slajdów)

Zacznijmy.

Spójrz na Wstążkę. Jeśli nie widzisz w menu pozycji Deweloper, przed rozpoczęciem kodowania musisz włączyć kartę Deweloper.

Po tym, jak menu Deweloper będzie widoczne na Wstążce, przejdź dalej i naciśnij Deweloper , a następnie naciśnij przycisk Visual Basic (lub po prostu naciśnij Alt + F11), aby otworzyć środowisko IDE Visual Basic.

VBA do tworzenia prezentacji PowerPoint

  1. W Edytorze VB kliknij prawym przyciskiem myszy VBAProject i naciśnij Wstaw .
  2. Wybierz Moduł .
  3. Wklej następujący kod w nowo utworzonym module.
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
  1. Hit Plik, a następnie Zapisz.
  2. Aby uruchomić kod, naciśnij Uruchom, a następnie wybierz Uruchom formularz podrzędny/użytkownika (lub po prostu F5).
  3. Zamknij edytor VB.

VBA do wstawiania slajdów

  1. W Edytorze VB kliknij prawym przyciskiem myszy VBAProject i naciśnij Wstaw.
  2. Wybierz moduł
  3. Wklej następujący kod w nowo utworzonym module.
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
  1. Hit Plik, a następnie Zapisz.
  2. Aby uruchomić kod, naciśnij Uruchom, a następnie wybierz Uruchom formularz podrzędny/użytkownika (lub po prostu F5).
  3. Zamknij edytor VB.

Makro do konfiguracji nowej prezentacji i dodawania slajdów

Byłoby to po prostu pomieszaniem dwóch opisanych powyżej fragmentów.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

Następnie możesz zajrzeć do naszego samouczka na temat programowego tworzenia kształtów w programie PowerPoint za pomocą VBA

Wygeneruj prezentację PowerPoint z Excela

Ostatni przypadek jest taki, że chcesz utworzyć prezentację PowerPoint bezpośrednio z arkusza kalkulacyjnego Excel. Możesz zastosować tę samą technikę z Worda i innych aplikacji Microsoft 365.

  • Połącz arkusz kalkulacyjny z modelem danych programu PowerPoint (z menu Narzędzia >> Referencje)
  • Wstaw przycisk do arkusza kalkulacyjnego Excel (Programista >> Wstaw, a następnie wybierz przycisk polecenia).
  • Wstaw poniższy kod VBA do projektu VBA arkusza kalkulacyjnego (bezpośrednio do arkusza lub do modułu VBA)
  • Zmodyfikuj skrypt zgodnie z wymaganiami.
  • Uruchom (naciśnij F5) i przetestuj wynik.
Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

Ciesz się 🙂

Zalety programu Excel VBA PowerPoint

  • Korzystanie z VBA w programie Powerpoint ułatwia obsługę, jeśli plik ppt zawiera wiele slajdów z dużą zawartością.
  • VBA z Powerpointem daje odrobinę automatyzacji nawet przy ograniczonych dostępnych funkcjach.

Wady programu Excel VBA PowerPoint

  • Musimy wybrać Bibliotekę obiektów Microsoft PowerPoint 15.0 z opcji Odniesienia znajdującej się w opcji menu Narzędzia, której potrzebujemy na początku przykład-1, za każdym razem, gdy uruchamiamy kod programu PowerPoint.

Rzeczy do zapamiętania

  • Po napisaniu kodu zapisz plik w formacie prezentacji z obsługą makr. Pomoże nam to uniknąć utraty kodu i wielokrotnego użycia tego samego kodu w przyszłości.
  • Funkcja przekodowania nie będzie tutaj działać, ponieważ musimy przeskoczyć z Excela do PowerPointa, zmieniając interfejs między stronami.
  • Zawsze kompiluj kod przed uruchomieniem. Pomoże Ci to znaleźć błąd w kodzie. Jest to bardzo pomocne, gdy piszemy duże linie kodu.
  • Aby uruchomić i zaimplementować kod musimy otworzyć arkusz Excela z wykresem, który chcemy wkleić do slajdu PowerPointa.
  • Wykres w programie PowerPoint możemy wyrównać według naszych potrzeb.

Messenger nie może otworzyć załącznika lub linku? Oto co robić

Messenger nie może otworzyć załącznika lub linku? Oto co robić

Messenger nie może otworzyć załącznika lub linku? Dowiedz się, jak rozwiązać ten problem dzięki sprawdzonym krokom i wskazówkom.

Jak utworzyć grupę kontaktów lub listę dystrybucyjną w programie Outlook

Jak utworzyć grupę kontaktów lub listę dystrybucyjną w programie Outlook

Dowiedz się, jak szybko stworzyć grupę kontaktów w Outlook, aby efektywnie zarządzać swoimi wiadomościami e-mail. Oszczędzaj czas z naszą szczegółową instrukcją.

[NAPRAWIONO] Błąd 740 Żądana operacja wymaga podwyższenia systemu Windows 10

[NAPRAWIONO] Błąd 740 Żądana operacja wymaga podwyższenia systemu Windows 10

Dowiedz się, jak rozwiązać problem z błędem 740 żądana operacja wymaga podniesienia Windows 10 problemów z rozwiązaniami przedstawionymi w tym artykule.

Jak włączyć lub wyłączyć uprawnienia witryny w Microsoft Edge

Jak włączyć lub wyłączyć uprawnienia witryny w Microsoft Edge

Jeśli chcesz mieć większą kontrolę nad tym, które witryny próbują uzyskać dostęp na Twoim komputerze, oto jak skutecznie zarządzać uprawnieniami witryny w Microsoft Edge.

5 najlepszych emulatorów PS4 dla systemu Windows 10/11 do zainstalowania w 2022 r.

5 najlepszych emulatorów PS4 dla systemu Windows 10/11 do zainstalowania w 2022 r.

Poznaj najlepsze emulatory PS4 na PC, które pozwolą Ci grać w gry na konsole PlayStation 4 za darmo na komputerach z Windows.

Jak naprawić „Nieznany wyjątek oprogramowania (0xe0434352)”?

Jak naprawić „Nieznany wyjątek oprogramowania (0xe0434352)”?

Odkryj możliwe rozwiązania, aby naprawić błąd wyjątku nieznanego oprogramowania (0xe0434352) w systemie Windows 10 i 11 podany tutaj…

Jak usunąć animacje z prezentacji PowerPoint

Jak usunąć animacje z prezentacji PowerPoint

Jak usunąć animacje z prezentacji PowerPoint, aby dostosować ją do profesjonalnych standardów. Oto przydatne wskazówki.

Napraw niedziałające Wicked Whims 6 łatwych rozwiązań

Napraw niedziałające Wicked Whims 6 łatwych rozwiązań

Radzenie sobie z Wicked Whims, które nie działają w Sims 4. Wypróbuj 6 skutecznych rozwiązań, takich jak aktualizacja modów i więcej.

Napraw kontroler PS4 nie ładuje się [8 łatwych ROZWIĄZAŃ]

Napraw kontroler PS4 nie ładuje się [8 łatwych ROZWIĄZAŃ]

Odkryj jak naprawić problem z kontrolerem PS4, który się nie ładuje. Sprawdź 8 prostych rozwiązań, w tym testy kabli, portów oraz reset kontrolera.

Operacja nie została zakończona pomyślnie, ponieważ plik zawiera wirusa [NAPRAWIONO]

Operacja nie została zakończona pomyślnie, ponieważ plik zawiera wirusa [NAPRAWIONO]

Dowiedz się, jak naprawić Operacja nie zakończyła się pomyślnie, ponieważ plik zawiera wirusa Windows 11/10 i nie można otworzyć żadnego pliku…