Embeddable Property Example

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

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