Powerpoint VisualBasic Script

Sub save()
    ActivePresentation.Save
End Sub