Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Design Template
Sub save()
    ActivePresentation.SaveAs FileName:="C:\R.ppt", _
        FileFormat:=ppSaveAsTemplate, EmbedTrueTypeFonts:=msoFalse
End Sub