¿Cómo trabajar con cuadros de mensaje y entrada en PowerPoint VBA?

Al revisar los comentarios, he visto un par de preguntas de los lectores sobre cómo trabajar con cuadros de entrada y mensajes de Visual Basic en PowerPoint.

En este tutorial, proporcionaremos un conocimiento básico muy básico para ayudarlo a usar esas capacidades al automatizar la creación de su presentación.

Configuración de la pestaña Desarrollador

En primer lugar, necesitaremos habilitar el entorno de desarrollo para PowerPoint. Siga este tutorial para configurar su pestaña de desarrollo.

En PowerPoint, vaya al menú Desarrollador y presione Visual Basic.

En el árbol del proyecto, haga clic derecho en su presentación, presione Insertar y luego elija Módulo. Se creará un nuevo Módulo VBA, ese es el lugar en el que escribirá su código.

Cuadros de mensaje en PowerPoint

Los cuadros de mensaje se explican por sí mismos, su objetivo es mostrar información útil para el usuario final. Escribe el siguiente código en tu Módulo:

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

Pulse F5 o Ejecutar y vea el resultado:

Ejemplo de mensaje y cuadro de entrada

A diferencia de los cuadros de mensaje, los cuadros de entrada se utilizan para obtener comentarios del usuario. Veamos el ejemplo a continuación. El guión inserta automáticamente nuevas diapositivas en la presentación.

Esto es lo que implementaremos:

1. Primero le pediremos al usuario la cantidad de diapositivas que desea agregar (usando un cuadro de entrada).
2. Luego, notificaremos al usuario sobre la cantidad de diapositivas que se crearán (usando un cuadro de mensaje)
3. Por último, seguirá adelante y creará las diapositivas mediante programación.
4. Por último, guardaremos la presentación 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

Con suerte, eso ayudó, siéntase libre de dejar comentarios según sea necesario.