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:

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.