Powerpoint VisualBasic Script

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