Como traballar coas caixas de mensaxes e de entrada en PowerPoint VBA?

Pasando polos comentarios, vin un par de preguntas dos lectores sobre como traballar coas caixas de entrada e mensaxes de Visual Basic en PowerPoint.

Neste tutorial proporcionaremos un coñecemento básico moi básico para axudarche a utilizar esas capacidades ao automatizar a creación da túa presentación.

Configurar a pestana Programador

En primeiro lugar, necesitaremos activar o ambiente de programador para PowerPoint. Siga este tutorial para configurar a súa pestana de desenvolvemento.

En PowerPoint, vai ao menú Programador e preme Visual Basic.

Na árbore do proxecto, faga clic co botón dereito na súa presentación, prema Inserir e despois seleccione Módulo. Crearase un novo módulo VBA, ese é o lugar no que escribirás o teu código.

Caixas de mensaxes en PowerPoint

As caixas de mensaxes son algo explicativas, o seu obxectivo é mostrar algunha información útil para o usuario final. Escribe o seguinte código no teu módulo:

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

Preme F5 ou Executar e mira o resultado:

Exemplo de caixa de entrada e mensaxe

A diferenza das caixas de mensaxes, as caixas de entrada úsanse para obter comentarios do usuario. Vexamos o exemplo a continuación. O guión insire automaticamente novas diapositivas na presentación.

Aquí tes o que implementaremos:

1. Primeiro solicitaremos ao usuario o número de diapositivas que desexa engadir (usando unha caixa de entrada).
2. A continuación, notificaremos ao usuario o número de diapositivas que se van crear (usando unha caixa de mensaxes)
3. Por último, seguirá e creará as diapositivas mediante programación.
4. Por último gardaremos a 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

Agardamos que isto axude, non dubide en deixar os comentarios que sexan necesarios.