PowerPoint Show: ppSaveAsShow
Sub save() ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsShow , EmbedTrueTypeFonts:=msoFalse End Sub