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