Como trabalhar com mensagens e caixas de entrada no PowerPoint VBA?

Percorrendo os comentários, vi algumas perguntas de leitores sobre como trabalhar com caixas de entrada e mensagem do Visual Basic no PowerPoint.

Neste tutorial, forneceremos um conhecimento básico muito básico para ajudá-lo a usar esses recursos ao automatizar a criação de sua apresentação.

Configurando a guia Desenvolvedor

Primeiro, precisaremos habilitar o ambiente do desenvolvedor para o PowerPoint. Siga este tutorial para configurar sua guia de desenvolvimento.

No PowerPoint, vá para o menu Desenvolvedor e clique em Visual Basic.

Na árvore do projeto, clique com o botão direito em sua apresentação, pressione Inserir e, em seguida, escolha Módulo. Um novo Módulo VBA será criado, é nesse local que você escreverá seu código.

Caixas de mensagens no PowerPoint

As caixas de mensagens são meio autoexplicativas, seu objetivo é exibir algumas informações úteis para o usuário final. Escreva o seguinte código em seu módulo:

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

Aperte F5 ou Run e veja o resultado:

Exemplo de mensagem e caixa de entrada

Ao contrário das Caixas de Mensagens, as caixas de entrada são usadas para obter feedback do usuário. Vejamos o exemplo abaixo. O script insere automaticamente novos slides na apresentação.

Aqui está o que vamos implementar:

1. Primeiro, solicitaremos ao usuário o número de slides a serem adicionados (usando uma caixa de entrada).
2. Em seguida, notificaremos o usuário sobre o número de slides a serem criados (usando uma caixa de mensagem)
3. Por último, seguirá em frente e criará os slides programaticamente.
4. Por último, salvaremos a apresentação 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

Espero ter ajudado, sinta-se à vontade para deixar comentários conforme necessário.