powerpoint FileFormat:= #

[almagg]

i used this to get around saving a downloaded xls excel file to xlsx which in the process was creating a folder with the web components of the file

ActiveWorkbook.SaveAs Filename:=strNewTycoReport, FileFormat:=51

anyways i am having a problem with the dialog box being hidden behind the just opened powerpoint template which i want to saves a pptx.

oPPTFile.SaveAs Application.GetSaveAsFilename(fileFilter:="PowerPoint((*.pptx),*.pptx")

so i want to try the above with saving the powerpoint but need to replace the '51' with the correct value

ActivePresentation.SaveAs Filename:=[new file name], FileFormat:= ?

thanks