none
Título e página no power point usando vba RRS feed

  • Pergunta

  • Bom dia, gostaria de saber como que eu faço para pegar o título e a página de cada slide de meu power point usando o vba.???

    obrigado

    renan

    quarta-feira, 29 de novembro de 2006 11:58

Respostas

  • Oi Renan,

    veja se é algo assim que você precisa:

    Sub PageNumberTitle()
    Dim oPres As Presentation
    Dim oSlide As Slide
    Dim i As Integer

    Set oPres = ActivePresentation

    For i = 1 To oPres.Slides.Count
        Debug.Print oPres.Slides(i).Name & " - " & oPres.Slides(i).SlideNumber
    Next i

    End Sub

    Se o que você chama de título do slide for o texto do primeiro controle (e não o nome do slide), então pode usar o seguinte código no laço For...Next: 

    Debug.Print oPres.Slides(i).Shapes(1).TextFrame.TextRange.Text

    sexta-feira, 1 de dezembro de 2006 00:22
    Moderador