Cum se lucrează cu casetele de mesaje și de intrare în PowerPoint VBA?

Parcurgând comentariile, am văzut câteva întrebări ale cititorilor despre cum să lucrați cu casetele de intrare și mesaje Visual Basic în PowerPoint.

În acest tutorial, vă vom oferi cunoștințe fundamentale de bază pentru a vă ajuta să utilizați aceste capacități atunci când vă automatizați crearea prezentării.

Configurarea filei Dezvoltator

În primul rând, va trebui să activăm mediul de dezvoltator pentru PowerPoint. Urmați acest tutorial pentru a vă configura fila de dezvoltare.

În PowerPoint, accesați meniul Dezvoltator și apăsați pe Visual Basic.

În arborele proiectului, faceți clic dreapta pe prezentare, apăsați Inserare și apoi alegeți Modul. Va fi creat un nou Modul VBA, acesta este locul în care vă veți scrie codul.

Casete de mesaje în PowerPoint

Casetele de mesaje se explică de la sine, scopul lor este de a afișa câteva informații utile utilizatorului final. Scrieți următorul cod în modulul dvs.:

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

Apăsați F5 sau Run și vedeți rezultatul:

Exemplu de mesaje și casete de intrare

Spre deosebire de casetele de mesaje, casetele de intrare sunt folosite pentru a obține feedback de la utilizator. Să ne uităm la exemplul de mai jos. Scriptul inserează automat diapozitive noi în prezentare.

Iată ce vom implementa:

1. Mai întâi vom solicita utilizatorului numărul de diapozitive de adăugat (folosind o casetă de introducere).
2. Vom anunța apoi utilizatorul despre numărul de diapozitive care urmează să fie create (folosind o casetă de mesaje)
3. În sfârșit, va continua și va crea diapozitivele în mod programatic.
4. La sfârșit, vom salva prezentarea modificată

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

Sper că v-a ajutat, nu ezitați să lăsați comentarii după cum este necesar.