Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Web Page
Sub save()
    ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
        FileFormat:=ppSaveAsHTML, EmbedTrueTypeFonts:=msoFalse
End Sub