FontNames 属性

此属性返回 FontNames 对象，该对象代表了所有有效字体的名称。只读。

示例

本示例用于显示 FontNames 集合中的字体名称。

Dim strFont As String
Dim intResponse As Integer

For Each strFont In FontNames
    intResponse = MsgBox(Prompt:=strFont, Buttons:=vbOKCancel)
    If intResponse = vbCancel Then Exit For
Next strFont