Desafio Bom - Exportar em PDF no Excel do Power Point

Question

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