Ako pracovať s poľami správ a vstupov v programe PowerPoint VBA?

Pri prechádzaní komentárov som videl niekoľko čitateľských otázok o tom, ako pracovať so vstupmi jazyka Visual Basic a poľami správ v PowerPointe.

V tomto návode vám poskytneme veľmi základné základné znalosti, ktoré vám pomôžu využiť tieto možnosti pri automatizácii tvorby prezentácií.

Nastavenie karty Vývojár

Najprv musíme povoliť vývojárske prostredie pre PowerPoint. Podľa tohto návodu nastavte kartu vývoja.

V PowerPointe prejdite do ponuky Vývojár a stlačte Visual Basic.

V strome projektu kliknite pravým tlačidlom na prezentáciu, stlačte Vložiť a potom vyberte Modul. Vytvorí sa nový modul VBA, to je miesto, kde budete písať svoj kód.

Pole správ v PowerPointe

Okná správ sú samovysvetľujúce, ich cieľom je zobraziť niektoré užitočné informácie koncovému používateľovi. Napíšte nasledujúci kód do svojho modulu:

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

Stlačte F5 alebo Spustiť a uvidíte výsledok:

Príklad správy a vstupného poľa

Na rozdiel od schránok správ sa vstupné polia používajú na získanie spätnej väzby od používateľa. Pozrime sa na príklad nižšie. Skript automaticky vloží do prezentácie nové snímky.

Tu je to, čo implementujeme:

1. Najprv používateľa vyzveme, aby zadal počet snímok, ktoré má pridať (pomocou vstupného poľa).
2. Používateľa potom upozorníme na počet snímok, ktoré sa majú vytvoriť (pomocou poľa správ)
3. Nakoniec budeme pokračovať a vytvárať snímky programovo.
4. Nakoniec upravenú prezentáciu uložíme

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

Dúfajme, že to pomohlo, neváhajte a zanechajte komentáre podľa potreby.