Code: Sub RemoveFont() ' ' Macro written 6/15/2005 by Bryan K. Pryor ' Removes embedded fonts from MS Powerpoint files and saves as new file name. ' Dim myFile As String Dim oldName As String Dim newName As String oldName = 'c: convert ' newName = 'c: converted ' myFile = Dir('c: convert *.ppt') Do Until myFile = ' Presentations.Open FileName:=oldName & myFile, ReadOnly:=msoFalse ActivePresentation.SaveAs FileName:=newName & 'noEmbed_' & myFile, FileFormat:=ppSaveAsPresentation, EmbedTrueTypeFonts:=msoFalse ActiveWindow.Close myFile = Dir Loop End Sub. ![]() Cisco switch lab manual pdf. For example, you can compress images, flatten PDF layers, remove document data and unembed fonts. When a font is embedded in a PDF, the exact font.
0 Comments
Leave a Reply. |