Jak pracować z polami wiadomości i wprowadzania w PowerPoint VBA?

Jak pracować z polami wiadomości i wprowadzania w PowerPoint VBA?

Przeglądając komentarze, spotkałem się z kilkoma pytaniami czytelników, jak pracować z Visual Basic Input i Message Boxs w PowerPoint.

W tym samouczku dostarczymy bardzo podstawowej podstawowej wiedzy, która pomoże Ci wykorzystać te możliwości podczas automatyzacji tworzenia prezentacji.

Konfigurowanie karty programisty

Po pierwsze, musimy włączyć środowisko programistyczne dla programu PowerPoint. Postępuj zgodnie z tym samouczkiem, aby skonfigurować kartę programistyczną.

W programie PowerPoint przejdź do menu Deweloper i naciśnij Visual Basic.

W drzewie projektu kliknij prawym przyciskiem myszy prezentację, naciśnij Wstaw, a następnie wybierz Moduł. Powstanie nowy moduł VBA, czyli miejsce, w którym będziesz pisał swój kod.

Skrzynki wiadomości w PowerPoint

Skrzynki z wiadomościami nie wymagają wyjaśnień, ich celem jest wyświetlenie przydatnych informacji użytkownikowi końcowemu. Napisz następujący kod w swoim Module:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

Naciśnij F5 lub Uruchom i zobacz wynik:

Jak pracować z polami wiadomości i wprowadzania w PowerPoint VBA?

Przykład wiadomości i pola wprowadzania

W przeciwieństwie do skrzynek wiadomości, pola wprowadzania są używane w celu uzyskania informacji zwrotnej od użytkownika. Spójrzmy na poniższy przykład. Skrypt automatycznie wstawia nowe slajdy do prezentacji.

Oto, co wdrożymy:

  1. Najpierw zapytamy użytkownika o liczbę slajdów do dodania (za pomocą pola wprowadzania).
  2. Następnie powiadomimy użytkownika o liczbie slajdów do utworzenia (za pomocą pola wiadomości)
  3. Na koniec programowo utworzy slajdy.
  4. Na koniec zapiszemy zmodyfikowaną prezentację


Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

Mam nadzieję, że to pomogło, w razie potrzeby możesz zostawić komentarze.

Sprawdź wartości zwrócone przez funkcję MsgBox

Gdy pojawi się okno dialogowe MsgBox umożliwiające interakcję użytkownika i chcesz wiedzieć, którą opcję kliknął użytkownik, możesz użyć poniższego kodu, aby to sprawdzić:

Kod sprawdza jaki przycisk wybrał użytkownik na MsgBox

Zależnie od wyboru każdego użytkownika możesz nadal uruchamiać różne kody, te kody VBA, których możesz się uczyć na kursach VBA z czołowymi ekspertami pod adresem Learn Excel Online.

Czy MsgBox obsługuje język wietnamski z akcentem? Odpowiedź brzmi: nie, dlaczego? Ponieważ Microsoft tak to zaprogramował. Ale czy jest jakiś inny sposób? Odpowiedź brzmi: tak, możesz przeczytać artykuł Używanie akcentowanego języka wietnamskiego w MsgBox VBA

Cały kod w artykule możesz zobaczyć na Gist:

  Sub HeoBasicMessageBox()
  MsgBox „Xin chao cac ban da den voi Hoc Excel Online”
  Napis końcowy
   
  Sub HeoBasicMessageBoxWithTitle()
  MsgBox „Xin chao cac ban da den voi Hoc Excel Online”, , „HEO”
  Napis końcowy
   
  Sub HeoBasicMessageBox2()
  MsgBox „Hoc Excel Online”, _
  vbOKAnuluj + _
  vbKrytyczny + _
  vbDomyślnyPrzycisk1 + _
  vbAplikacjaModalna
  Napis końcowy
   
  Sub HeoBasicMessageBox3()
  MsgBox „Hoc Excel Online”, _
  vbOKAnuluj + _
  vbKrytyczny + _
  vbDomyślnyPrzycisk1 + _
  vbSystemModalny
  Napis końcowy
   
  Sub HeoMsgBoxResult1()
  Ciemna odpowiedź Jako VbMsgBoxResult
   
  odpowiedź = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult2()
  Ciemna odpowiedź Jako VbMsgBoxResult
   
  odpowiedź = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult3()
  Ciemna odpowiedź Jako VbMsgBoxResult
   
  odpowiedź = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
  Odpowiedź MsgBox
   
  Napis końcowy
   
  Sub HeoMsgBoxResult4()
  Ciemna odpowiedź Jako VbMsgBoxResult
   
  odpowiedź = MsgBox("Hoc Excel Online", vbYesNo + vbInformation)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult5()
  Ciemna odpowiedź Jako VbMsgBoxResult
  odpowiedź = MsgBox("Błąd", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult6()
  Ciemna odpowiedź Jako VbMsgBoxResult
  odpowiedź = MsgBox("Błąd", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult7()
  Ciemna odpowiedź Jako VbMsgBoxResult
  odpowiedź = MsgBox("Błąd", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult8()
  Ciemna odpowiedź Jako VbMsgBoxResult
  odpowiedź = MsgBox("Błąd", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult9()
  Ciemna odpowiedź Jako VbMsgBoxResult
  odpowiedź = MsgBox(„Chcesz spróbować ponownie?”, vbRetryCancel + vbQuestion, „Błąd”)
  Odpowiedź MsgBox
  Napis końcowy
   
  Sub HeoMsgBoxResult10()
  MsgBox „Wystąpił błąd krytyczny”, vbKrytyczny, „Błąd systemu”
  Napis końcowy

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…