none
Desafio Bom - Exportar em PDF no Excel do Power Point RRS feed

  • Pergunta

  • Bom dia estou tentando realizar um código no Excel que coloca uma imagem dentro do Power Point só que preciso exportar todo esse arquivo do Power Point para PDF, pelo Excel, alguém poderia me ajudar segue o código que não consegui exportar pelo Excel

     

    Sub Enviar_PPTX()
        Dim ppt As Object
        Set ppt = CreateObject("PowerPoint.Application")
        ppt.Visible = True
        Link = ThisWorkbook.Path & "\"
        Link2 = ThisWorkbook.Path & "\Imagens\"
        ppt.Presentations.Open Link & "teste.pptx"
        ppt.ActiveWindow.View.GotoSlide 2
       
        Set myDocument = ppt.ActivePresentation.Slides(2)
        myDocument.Shapes.AddPicture Filename:=Link2 & "Report_Modelo.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=30, Top:=150, Width:=650, Height:=350
       
         ppt.ActivePresentation.ExportAsFixedFormat Link & "\teste.pdf", 2, 1, 1, 2, 7, 0, , , , False, False, False, False, False
       
        Set ppt = Nothing
    End Sub


    Baldini Fabio
    segunda-feira, 16 de maio de 2011 05:56

Respostas

  • Achei a resposta! Segue para todos quem precisar em seus projetos!!!

     

    Sub Enviar_PPTX()
        Dim ppt As Object
        Set ppt = CreateObject("PowerPoint.Application")
        ppt.Visible = True
        Link = ThisWorkbook.Path & "\"
        Link2 = ThisWorkbook.Path & "\Imagens\"
        ppt.Presentations.Open Link & "teste.pptx"
        ppt.ActiveWindow.View.GotoSlide 2
       
        Set myDocument = ppt.ActivePresentation.Slides(2)
        myDocument.Shapes.AddPicture Filename:=Link2 & "Report_Modelo.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=30, Top:=150, Width:=650, Height:=350
       
        ppt.ActivePresentation.SaveAs Link & "\test2.pdf", 32, 1
        Set ppt = Nothing
    End Sub


    Baldini Fabio
    segunda-feira, 16 de maio de 2011 06:04