Kako raditi s okvirima za poruke i unos u PowerPoint VBA?

Prolazeći kroz komentare, vidio sam nekoliko pitanja čitatelja o tome kako raditi s Visual Basic okvirima za unos i poruke u PowerPointu.

U ovom vodiču pružit ćemo vam vrlo osnovno temeljno znanje koje će vam pomoći da koristite te mogućnosti pri automatizaciji izrade prezentacije.

Postavljanje kartice Developer

Prije svega, morat ćemo omogućiti razvojno okruženje za PowerPoint. Slijedite ovaj vodič za postavljanje kartice za razvoj.

U PowerPointu idite na izbornik Developer i pritisnite Visual Basic.

U stablu projekta desnom tipkom miša kliknite svoju prezentaciju, pritisnite Umetanje i zatim odaberite Modul. Stvorit će se novi VBA modul, to je mjesto na koje ćete napisati svoj kod.

Kutije za poruke u PowerPointu

Okviri za poruke su na neki način razumljivi sami po sebi, cilj im je prikazati neke korisne informacije krajnjem korisniku. Napišite sljedeći kod u svoj modul:

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

Pritisnite F5 ili Run i pogledajte rezultat:

Primjer poruke i okvira za unos

Za razliku od okvira za poruke, okviri za unos koriste se za dobivanje povratnih informacija od korisnika. Pogledajmo primjer u nastavku. Skripta automatski umeće nove slajdove u prezentaciju.

Evo što ćemo implementirati:

1. Prvo ćemo od korisnika zatražiti broj slajdova koje treba dodati (pomoću okvira za unos).
2. Zatim ćemo obavijestiti korisnika o broju slajdova za izradu (pomoću okvira za poruke)
3. Na kraju će ići naprijed i programski stvoriti slajdove.
4. Na kraju ćemo spremiti izmijenjenu prezentaciju

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

Nadamo se da je to pomoglo, slobodno ostavite komentare prema potrebi.