Gostaria de definir uma apresentação PPT que lance uma caixa de diálogo na abertura do documento onde eu poderia preencher diretamente alguns campos com informações (como o nome do meu cliente, o nome do projeto, etc.) . Essas informações aparecem automaticamente em alguns slides da minha apresentação dentro de caixas de texto específicas.
Isso seria fácil se eu pudesse usar a ferramenta gravador de macro - como no Excel, no Word ou no Powerpoint 2007, mas esse recurso foi removido desde a versão de 2010. Eu poderia facilmente gravar uma macro que começa na abertura e pede ao usuário para preencher a caixa de diálogo - ou diretamente, as caixas de texto nos slides necessários - mas isso não é mais possível.
Assim, tenho que continuar usando o VBA, mas não sei nada sobre esse código. É por isso que eu gostaria de encontrar a parte do código que me permite implementar essa opção no meu documento. Alguma idéia?
Estou trabalhando no PPT 2010.
Você tem que usar uma caixa de entrada para obter o valor (string) e, em seguida, navegar para os slides / formas e definir o valor para a string da caixa de entrada:
Sub test()
Dim x As String
x = InputBox("What is your name?", Name)
ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange = x
End Sub
Não é tão intuitivo quanto o Excel, eu começaria aqui
Ou, se você for corajoso, tente usar um userform