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