Kuinka työskennellä viesti- ja syöttölaatikoiden kanssa PowerPoint VBA:ssa?

Kommentteja käydessäni olen nähnyt muutaman lukijan kysymyksen siitä, miten PowerPointin Visual Basic -syöttö- ja viestiruutuja käytetään.

Tässä opetusohjelmassa annamme perustiedot, joiden avulla voit käyttää näitä ominaisuuksia automatisoidessasi esityksen luomista.

Kehittäjä-välilehden määrittäminen

Ensinnäkin meidän on otettava PowerPointin kehittäjäympäristö käyttöön. Määritä kehitysvälilehti noudattamalla tätä opetusohjelmaa .

Siirry PowerPointissa Kehittäjä-valikkoon ja valitse Visual Basic.

Napsauta projektipuussa esitystäsi hiiren kakkospainikkeella, napsauta Lisää ja valitse sitten Moduuli. Uusi VBA-moduuli luodaan, siihen paikkaan, johon kirjoitat koodisi.

Viestilaatikot PowerPointissa

Viestilaatikot ovat tavallaan itsestään selviä, niiden tavoitteena on näyttää hyödyllistä tietoa loppukäyttäjälle. Kirjoita seuraava koodi moduuliisi:

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

Paina F5 tai Run ja katso tulos:

Esimerkki viestistä ja syöttölaatikosta

Toisin kuin viestilaatikoita, syöttöruutuja käytetään palautteen saamiseksi käyttäjältä. Katsotaanpa alla olevaa esimerkkiä. Skripti lisää automaattisesti uudet diat esitykseen.

Toteutamme seuraavat asiat:

1. Ensin kysymme käyttäjältä lisättävien diojen määrän (syöttöruudun avulla).
2. Ilmoitamme sitten käyttäjälle luotavien diojen lukumäärästä (viestilaatikon avulla)
3. Viimeinen, jatkaa ja luo diat ohjelmallisesti.
4. Viimeiseksi tallennetaan muokattu esitys

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

Toivottavasti se auttoi, voit vapaasti jättää kommentteja tarvittaessa.