Kā strādāt ar ziņojumu un ievades lodziņiem programmā PowerPoint VBA?

Pārlūkojot komentārus, esmu redzējis dažus lasītāju jautājumus par to, kā strādāt ar Visual Basic ievades un ziņojumu lodziņiem programmā PowerPoint.

Šajā apmācībā mēs sniegsim ļoti pamatzināšanas, kas palīdzēs jums izmantot šīs iespējas, automatizējot prezentācijas izveidi.

Cilnes Izstrādātājs iestatīšana

Vispirms mums būs jāiespējo PowerPoint izstrādātāja vide. Izpildiet šo pamācību, lai iestatītu izstrādes cilni.

Programmā PowerPoint atveriet izvēlni Izstrādātājs un nospiediet Visual Basic.

Projektu kokā ar peles labo pogu noklikšķiniet uz prezentācijas, nospiediet Ievietot un pēc tam izvēlieties Modulis. Tiks izveidots jauns VBA modulis, kurā jūs ierakstīsit savu kodu.

Ziņojumu kastes programmā PowerPoint

Ziņojumu kastes ir pašsaprotamas, to mērķis ir parādīt kādu noderīgu informāciju gala lietotājam. Savā modulī ierakstiet šādu kodu:

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

Nospiediet F5 vai Palaist un skatiet rezultātu:

Ziņojumu un ievades lodziņa piemērs

Atšķirībā no ziņojumu kastēm, ievades lodziņi tiek izmantoti, lai iegūtu atsauksmes no lietotāja. Apskatīsim tālāk sniegto piemēru. Skripts prezentācijā automātiski ievieto jaunus slaidus.

Lūk, ko mēs ieviesīsim:

1. Vispirms lietotājam tiks prasīts pievienot pievienojamo slaidu skaitu (izmantojot ievades lodziņu).
2. Pēc tam mēs informēsim lietotāju par veidojamo slaidu skaitu (izmantojot ziņojumu lodziņu).
3. Visbeidzot, tiks izveidots programmatiski slaidi.
4. Pēdējā saglabāsim modificēto prezentāciju

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

Cerams, ka tas palīdzēja, ja nepieciešams, atstājiet komentārus.