Com treballar amb els quadres de missatges i dentrada a PowerPoint VBA?

Revisant els comentaris, he vist un parell de preguntes dels lectors sobre com treballar amb Visual Basic entrades i quadres de missatges a PowerPoint.

En aquest tutorial us proporcionarem uns coneixements bàsics bàsics per ajudar-vos a utilitzar aquestes capacitats a l'hora d'automatitzar la creació de presentacions.

Configuració de la pestanya Desenvolupador

En primer lloc, haurem d'habilitar l'entorn de desenvolupador per a PowerPoint. Seguiu aquest tutorial per configurar la vostra pestanya de desenvolupament.

A PowerPoint, aneu al menú Desenvolupador i premeu Visual Basic.

A l'arbre del projecte, feu clic amb el botó dret a la vostra presentació, premeu Insereix i, a continuació, seleccioneu Mòdul. Es crearà un nou mòdul VBA, aquest és el lloc on escriureu el vostre codi.

Caixes de missatges a PowerPoint

Els quadres de missatges s'explicaran per si mateixos, el seu objectiu és mostrar informació útil a l'usuari final. Escriviu el codi següent al vostre mòdul:

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

Premeu F5 o Executar i vegeu el resultat:

Exemple de bústia de missatges i d'entrada

A diferència dels quadres de missatges, els quadres d'entrada s'utilitzen per obtenir comentaris de l'usuari. Vegem l'exemple següent. El guió insereix automàticament noves diapositives a la presentació.

Això és el que implementarem:

1. Primer demanarem a l'usuari el nombre de diapositives que cal afegir (utilitzant un quadre d'entrada).
2. A continuació, notificarem a l'usuari el nombre de diapositives que s'han de crear (amb un quadre de missatges)
3. Per últim, seguirà endavant i crearà les diapositives amb programació.
4. Per últim desarem la presentació modificada

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

Tant de bo t'hagi ajudat, no dubteu a deixar els comentaris que calgui.