I've been trying to embed fonts in my PPT.
I check the boxes in the "preserve fidelity" section, and even when I go to save the PPT there is a progress bar at the bottom titled "saving fonts."
However, when I run VBA codes to check if the fonts are embedded it says "not embedded."
Also, under PPT 'contents' it does not state that any fonts are 'embedded'.
I can't seem to embed even the most ubiquitous Open Type or True Type fonts in a fresh PPT.
Here is the VBA I found to check for embedded fonts:
Sub ListFonts()
Dim x As Long
Dim sReport As String
With ActivePresentation.Fonts
For x = 1 To .count
sReport = sReport & .Item(x).Name & vbTab
If .Item(x).Embedded Then
sReport = sReport & "Embedded" & vbCrLf
Else
sReport = sReport & "NOT Embedded" & vbCrLf
End If
Next
End With
MsgBox sReport
End Sub
Is embedding a font in a PPT no more? Is there a way to embed a font (that is entirely of my own making) through VBA??