Како радити са оквирима за поруке и унос у ПоверПоинт ВБА?

Пролазећи кроз коментаре, видео сам неколико питања читалаца о томе како да радим са Висуал Басиц кутијама за унос и поруке у ПоверПоинту.

У овом водичу ћемо вам пружити основна основна знања која ће вам помоћи да користите те могућности када аутоматизујете креирање презентације.

Подешавање картице за програмере

Прво, мораћемо да омогућимо окружење за програмере за ПоверПоинт. Пратите овај водич да бисте подесили картицу за развој.

У ПоверПоинт-у идите на мени за програмере и притисните Висуал Басиц.

У стаблу пројекта кликните десним тастером миша на своју презентацију, притисните Убаци, а затим изаберите Модул. Биће креиран нови ВБА модул, то је место на које ћете написати свој код.

Кутије за поруке у ПоверПоинту

Кутије за поруке су некако саме по себи разумљиве, њихов циљ је да прикажу неке корисне информације крајњем кориснику. Упишите следећи код у свој модул:

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

Притисните Ф5 или Рун и погледајте резултат:

Пример поруке и поља за унос

За разлику од оквира за поруке, поља за унос се користе да би се добила повратна информација од корисника. Погледајмо пример у наставку. Скрипта аутоматски убацује нове слајдове у презентацију.

Ево шта ћемо имплементирати:

1. Прво ћемо од корисника затражити број слајдова које треба додати (помоћу поља за унос).
2. Затим ћемо обавестити корисника о броју слајдова који ће бити креирани (помоћу оквира за поруке)
3. На крају, наставићемо и програмски креирати слајдове.
4. На крају ћемо сачувати измењену презентацију

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

Надамо се да је то помогло, слободно оставите коментаре по потреби.