Open and Save as a pptx file with dialog box

Hi! I want to open a pptx file and save as it directly with a dialog box or a prompt shows up allowing the user to choose a location to save it and what file name.

I do not want to open the pptx file so I added the .visible false and it does not work. other than that, removing that line of code, I can't still save as my pptx file

I tried this code but to no luck

Sub saveApptFile()
    Dim objPPT As Object, pptDoc As Object, path As String
    Dim dlgSaveAs As FileDialog, fileSaveName As Variant

    path = ThisWorkbook.path & Application.PathSeparator & "/TEMPLATEFOLDER/pptTemp.pptx"
    Set objPPT = CreateObject("PowerPoint.Application")
    Set pptDoc = objPPT.Presentations.Open(path)
    objPPT.Visible = False
    

    fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="PPT Documents (*.pptx), *.pptx")
    

    If fileSaveName <> False Then
        objPPT.ActivePresentations.SaveAs Filename:=fileSaveName_
        FileFormat:=ppFormatPresentationsDefault
    
        
        objPPT.Presentations.Open fileSaveName
        objPPT.Visible = True
        objPPT.Activate

    Else
        MsgBox "cancelled."

    End If
    
End Sub

Any help will be appreciated! Thank you.

royUK if you are not busy sir. please help me. Thanks a lot!

Quote from royUK

There was a missing comma in this line and I've changed the FileFormat. I can't test this though

Code

objPPT.ActivePresentations.SaveAs Filename:=fileSaveName, FileFormat:=ppSaveAsDefault

It still does not work

Quote from royUK

Have you tried with the ppt visible?

Are you getting an error message?

I removed the ppt visible because it does not really work.
I am still to find another way to make it work

and yes I am getting an error with this line; objPPT.ActivePresentations.SaveAs Filename:=fileSaveName, FileFormat:=ppSaveAsDefault

Quote from royUK

Looks like PowerPoint doesn't record macros

I think so, too.

I think I need to make changes to the code but still I do not know how.

Quote from royUK

I think I've found what was wrong. Try this

Code

Sub saveApptFile()
Dim objPPT As Object, pptDoc As Object, path As String
Dim dlgSaveAs As FileDialog, fileSaveName As Variant
path = ThisWorkbook.path & Application.PathSeparator & "/TEMPLATEFOLDER/pptTemp.pptx"
ChDir "C:\Users\Roy Cox\Desktop\TEMP"
Set objPPT = CreateObject("PowerPoint.Application")
Set pptDoc = objPPT.Presentations.Open(path)
 objPPT.WindowState = ppWindowMinimized
Application.WindowState = xlMaximized
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="PPT Documents (*.pptx), *.pptx")
If fileSaveName <> False Then
pptDoc.SaveAs fileSaveName, ppSaveAsDefault
' objPPT.Presentations.Open fileSaveName
' objPPT.Visible = True
' objPPT.Activate
Else
MsgBox "cancelled."
End If
End Sub

Display More

Your code needed to save the presentation - pptDoc

Code

pptDoc

Code

pptDoc

THANK YOU SO MUCH FOR THIS, SIR! I kinda get it working.

   Dim objPPT As Object, pptDoc As Object, path As String
    
    Dim dlgSaveAs As FileDialog, fileSaveName As Variant
    path = ThisWorkbook.path & Application.PathSeparator & "/TEMPLATEPPT/pptTemp.pptx"
    
    Set objPPT = CreateObject("PowerPoint.Application")
    Set pptDoc = objPPT.Presentations.Open(path, , , msoFalse)
    'objPPT.WindowState = ppWindowMinimized
    'Application.WindowState = xlMaximized
        
    
    fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="PPT Documents (*.pptx), *.pptx")
    
    If fileSaveName <> False Then
        pptDoc.SaveAs fileSaveName, ppSaveAsDefault
        'objPPT.WindowState = ppWindowMaximized
    Else
        MsgBox "Q26 - Template generation cancelled."
    
    End If

This automatically saves the file to a path made by the user.

My only problem now is after the saveas, the file is not opened.

Any help on how can I open the newly saveas file?