Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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