Hi All,
I've been trying to sift through the forums for this but haven't found a reference to what I need. And given that i'm fairly new to vba, the options i've tried thus far in my code just result in errors.
The goal: Use an excel macro to Open a powerpoint file, update links, save as powerpoint picture presentation, close. I think I got everything other than the SaveAs working fine.
the code i have thus far:
Sub PPT_Update()
Dim FilePath As String
Dim pptName As String
Dim ppt As Object
Dim pptx As Object
FilePath = ThisWorkbook.Path
pptName = "MSTR - Master Presentation.pptx"
Set ppt = CreateObject("PowerPoint.Application")
With ppt
.presentations.Open (FilePath & "\" & pptName)
.ActivePresentation.UpdateLinks
.ActivePresentation.SaveAs FilePath & "\" & Format(Date, "MMDDYYYY") & "_myPowerPt.pptx"
.Quit
Set ppt = Nothing
End With
End Sub
I have no idea how to make the save as into save as powerpoint picture presentation... any ideas or insight would be greatly appreciated!
Thanks you!
Bookmarks