Mega Code Archive
Categories
/
VisualBasic Script
/
Powerpoint
Single File Web Page
Sub save() ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsWebArchive, EmbedTrueTypeFonts:=msoFalse End Sub