none
Nome do apresentador VBA - PowerPoint RRS feed

  • Pergunta

  • Olá pessoal,

    Nunca trabalhe com vba no PowerPoint e por isto estou um pouco confuso, tenho uma apresentação que será enviada para varias cidades e cada hora uma pessoa apresentará, necessito inserir o nome e telefone da pessoa que esta apresentando, pensei em ao executar aparecer uma inputbox solicitando o nome e com esta informação distribuir em todos os slides (no topo) e estou um pouco enrolado, alguém tem ideia?

    domingo, 15 de julho de 2012 21:58

Respostas

  • Olá Raphael.

    Sugiro que use um modelo como mostrado nessa página: http://www.ambienteoffice.com.br/powerpoint/executar_codigo_ao_abrir_apresentacao/

    Você deverá então substituir o código de EventoAbrir por:

    Sub EventoAbrir()
        Dim sNome As String
        
        Do
            sNome = InputBox("Apresentador, qual é o seu nome?")
        Loop While sNome = ""
        
        ActivePresentation.Slides(1).Shapes("NomeDoShape").TextFrame.TextRange.Text = sNome
    End Sub

    Estou considerando que as informações do apresentador estão no slide 1 num shape chamado NomeDoShape, como pode ver na penúltima linha do código. Você deverá substituir esse nome pelo nome correto. Para descobrir o nome do shape a ser modificado, selecione-o e então use o código abaixo:

    Sub Exemplo()
        MsgBox ActiveWindow.Selection.ShapeRange(1).Name
    End Sub
    Se o shape estiver num slide mestre ou repetir em outros slides da mesma Apresentação, volte a postar.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 18 de julho de 2012 21:31
    Moderador