Consulting

Results 1 to 3 of 3

Thread: Macro to embed fonts when saving

  1. #1

    Macro to embed fonts when saving

    Hello all,

    We use a corporate font in our presentations, and I have just noticed that PowerPoint doesn't automatically embed fonts when saving (whether saving as pptx or ppsx), which means that our users who don't have our font installed on their computers (i.e. 99% of them) aren't seeing the presentation as we originally designed it.

    It took me this long to notice this because I obviously have the font installed, and so do most people I interact with at work, so I was quite shocked when seeing a screenshot sent from someone outside the company which showed the fonts replaced by some ill-fitting generic sans-serif.

    I now know how to manually embed the font, but I can't trust every one of my colleagues (or even myself) to remember to do so every time a new presentation is created.

    Is there a way to use VBA to save the file in pptx (or ppsx) and automatically embed all used fonts at the same time?

    Any help would be greatly appreciated.

    Thank you,

    -Isa

  2. #2
    VBAX Master
    Joined
    Feb 2007
    Posts
    1,700
    Location
    Sub saveembed()
    'change the FileName / Path
    Call ActivePresentation.SaveAs(FileName:="C:Users/johnwilson/Desktop/test.pptx", _
    FileFormat:=ppSaveAsOpenXMLPresentation, _
    EmbedTrueTypeFonts:=True)
    End Sub
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

  3. #3
    That simple

    Thank you John.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •