SubstituteFont 方法

设置字体映射选项，该选项出现在“兼容性”选项卡上的“字体替换”对话框中（先打开“工具”菜单上的“选项”对话框）。

expression   必需。该表达式返回一个 Application 对象。

UnavailableFont   String 类型，必需。在本计算机上无效的字体名称（因而您希望映射为其他字体以进行显示和打印输出）。

SubstituteFont   String 类型，必需。用于替换无效字体并在本计算机上有效的字体的名称。

示例

本示例将 Courier 字体替换为 CustomFont1 字体。

Application.SubstituteFont UnavailableFont:= "CustomFont1", _
    SubstituteFont:= "Courier"