Mega Code Archive

 
Categories / VisualBasic Script / Powerpoint
 

Presentation for Review

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