Как узнать, в презентацию встроен шрифт?

Question

Я хочу знать, встроены ли в мою презентацию шрифты. Я обнаружил в документе Word, код:

Sub EmbedFonts()
    Dim sReport As String
    sReport = ActiveDocument.EmbedTrueTypeFonts
    MsgBox sReport
End Sub

Но в PowerPoint мой код не работает правильно

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

Результат всегда "НЕ встроен", хотя я проверял опция Вставить шрифт в Option и сохранить презентацию. Можете ли вы помочь мне исправить это. Спасибо.