Embedded Property Example

This example checks each font used in the active presentation to determine whether it's embedded in the presentation.

For Each usedFont In Presentations(1).Fonts
    If usedFont.Embedded Then
        MsgBox usedFont.Name & ": Embedded"
    Else
        MsgBox usedFont.Name & ": Not embedded"
    End If
Next usedFont