TPE

[e-mail]

---

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

ub 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

---