Jak pracovat s Message and Input Box v PowerPoint VBA?

Při procházení komentářů jsem viděl několik čtenářských otázek o tom, jak pracovat s poli pro vstup jazyka Visual Basic a pole zpráv v PowerPointu.

V tomto tutoriálu vám poskytneme velmi základní základní znalosti, které vám pomohou tyto schopnosti používat při automatizaci vytváření prezentací.

Nastavení karty Vývojář

Nejprve musíme povolit vývojářské prostředí pro PowerPoint. Podle tohoto návodu nastavte kartu vývoje.

V PowerPointu přejděte do nabídky Vývojář a klepněte na Visual Basic.

Ve stromu projektu klikněte pravým tlačítkem na prezentaci, stiskněte Vložit a vyberte Modul. Vytvoří se nový modul VBA, to je místo, kde budete psát svůj kód.

Schránky zpráv v PowerPointu

Schránky zpráv jsou svým způsobem samozřejmé, jejich cílem je zobrazit některé užitečné informace koncovému uživateli. Napište do svého modulu následující kód:

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

Stiskněte F5 nebo Spustit a podívejte se na výsledek:

Příklad zprávy a vstupního pole

Na rozdíl od schránek zpráv se vstupní pole používají k získání zpětné vazby od uživatele. Podívejme se na příklad níže. Skript automaticky vloží do prezentace nové snímky.

Zde je to, co implementujeme:

1. Nejprve uživatele vyzveme k zadání počtu snímků, které má přidat (pomocí vstupního pole).
2. Poté upozorníme uživatele na počet snímků, které mají být vytvořeny (pomocí pole zpráv)
3. Poslední bude pokračovat a vytvářet snímky programově.
4. Jako poslední uložíme upravenou prezentaci

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

Doufám, že to pomohlo, klidně zanechte komentáře podle potřeby.