Kuidas töötada PowerPoint VBA-s sõnumi- ja sisestuskastidega?

Kommentaare läbi vaadates olen näinud paari lugeja küsimust selle kohta, kuidas PowerPointis Visual Basicu sisendi ja sõnumikastidega töötada.

Selles õpetuses anname teile väga algteadmised, mis aitavad teil esitluse loomise automatiseerimisel neid võimalusi kasutada.

Vahekaardi Arendaja seadistamine

Kõigepealt peame lubama PowerPointi arendajakeskkonna. Järgige seda õpetust oma arenduskaardi seadistamiseks .

Avage PowerPointis menüü Arendaja ja klõpsake nuppu Visual Basic.

Paremklõpsake projektipuus oma esitlust, klõpsake nuppu Lisa ja seejärel valige Moodul. Luuakse uus VBA moodul, kuhu kirjutate oma koodi.

PowerPointi sõnumikastid

Sõnumikastid on omamoodi iseenesestmõistetavad, nende eesmärk on kuvada lõppkasutajale kasulikku teavet. Kirjutage oma moodulisse järgmine kood:

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

Vajutage F5 või Run ja vaadake tulemust:

Sõnumi ja sisestuskasti näide

Erinevalt sõnumikastidest kasutatakse sisestuskaste kasutajalt tagasiside saamiseks. Vaatame allolevat näidet. Skript lisab esitlusse automaatselt uued slaidid.

Rakendame järgmist:

1. Esmalt küsime kasutajalt lisatavate slaidide arvu (kasutades sisestuskasti).
2. Seejärel teavitame kasutajat loodavate slaidide arvust (kasutades sõnumikasti)
3. Viimaseks loob slaidid programmiliselt.
4. Viimasena salvestame muudetud esitluse

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

Loodetavasti oli sellest abi, jätke vajadusel kommentaaridena.