Si të punoni me kutitë e mesazheve dhe hyrjeve në PowerPoint VBA?

Duke kaluar nëpër komente, kam parë disa pyetje të lexuesve se si të punoj me kutitë e hyrjes dhe mesazheve të Visual Basic në PowerPoint.

Në këtë tutorial ne do të ofrojmë një njohuri themelore themelore për t'ju ndihmuar t'i përdorni ato aftësi kur automatizoni krijimin e prezantimit tuaj.

Konfigurimi i skedës së Zhvilluesit

Së pari, do të duhet të aktivizojmë mjedisin e zhvilluesit për PowerPoint. Ndiqni këtë udhëzues për të konfiguruar skedën tuaj të zhvillimit.

Në PowerPoint, shkoni te menyja Developer dhe shtypni Visual Basic.

Në pemën e Projektit, kliko me të djathtën në prezantimin tuaj, shtyp Insert dhe më pas zgjidh Modulin. Do të krijohet një modul i ri VBA, ky është vendi ku do të shkruani kodin tuaj.

Kutitë e mesazheve në PowerPoint

Kutitë e mesazheve janë vetë-shpjeguese, qëllimi i tyre është të shfaqin disa informacione të dobishme për përdoruesin përfundimtar. Shkruani kodin e mëposhtëm në modulin tuaj:

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

Shtypni F5 ose Run dhe shikoni rezultatin:

Shembull i kutisë së mesazhit dhe hyrjes

Ndryshe nga kutitë e mesazheve, kutitë e hyrjes përdoren për të marrë reagime nga përdoruesi. Le të shohim shembullin më poshtë. Skripti automatikisht fut rrëshqitje të reja në prezantim.

Ja çfarë do të zbatojmë:

1. Fillimisht do t'i kërkojmë përdoruesit për numrin e rrëshqitjeve për të shtuar (duke përdorur një Kuti hyrëse).
2. Më pas do ta njoftojmë përdoruesin për numrin e rrëshqitjeve që do të krijohen (duke përdorur një kuti mesazhesh)
3. Së fundi, do të shkojë përpara dhe do të krijojë rrëshqitje në mënyrë programore.
4. Së fundi, ne do ta ruajmë prezantimin e modifikuar

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

Shpresojmë se ju ka ndihmuar, mos ngurroni të lini komente sipas nevojës.