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??