Embeddable 属性

       

决定指定的字体是否可以嵌入演示文稿中。只读。MsoTriState 类型。

expression.Paste

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

本示例检查当前演示文稿中所用的每个字体以判定该字体是否能嵌入到演示文稿中。

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