Default format (set on the Save tab of the Options dialog box) ppSaveAsDefault
Sub save() ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsDefault, EmbedTrueTypeFonts:=msoFalse End Sub