Kako delati s sporočilnimi in vnosnimi polji v PowerPoint VBA?

Ko sem pregledal komentarje, sem zasledil nekaj vprašanj bralcev o tem, kako delati z vnosnimi in sporočilnimi polji Visual Basic v PowerPointu.

V tej vadnici vam bomo zagotovili zelo osnovno osnovno znanje, ki vam bo pomagalo uporabiti te zmogljivosti pri avtomatizaciji ustvarjanja predstavitve.

Nastavitev zavihka za razvijalce

Najprej bomo morali omogočiti razvijalsko okolje za PowerPoint. Sledite tej vadnici, da nastavite zavihek za razvoj.

V PowerPointu pojdite v meni za razvijalce in pritisnite Visual Basic.

V drevesu projekta z desno miškino tipko kliknite svojo predstavitev, pritisnite Vstavi in ​​nato izberite Modul. Ustvarjen bo nov modul VBA, to je mesto, kamor boste napisali svojo kodo.

Polja za sporočila v PowerPointu

Polja za sporočila so nekako samoumevna, njihov cilj je prikazati nekaj koristnih informacij končnemu uporabniku. V svoj modul vpišite naslednjo kodo:

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

Pritisnite F5 ali Run in si oglejte rezultat:

Primer sporočila in vnosnega polja

Za razliko od sporočilnih polj se vnosna polja uporabljajo za pridobitev povratnih informacij od uporabnika. Poglejmo si spodnji primer. Skript samodejno vstavi nove diapozitive v predstavitev.

Evo, kaj bomo implementirali:

1. Najprej bomo uporabnika pozvali k številu diapozitivov za dodajanje (z uporabo vnosnega polja).
2. Nato bomo uporabnika obvestili o številu diapozitivov, ki jih je treba ustvariti (z uporabo polja za sporočila)
3. Nazadnje bo nadaljevalo in programsko ustvarilo diapozitive.
4. Nazadnje bomo shranili spremenjeno predstavitev

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

Upajmo, da je to pomagalo. Po potrebi pustite komentarje.