> あけおめことよろ。
一瞬何かと思いましたよ。(^^;
> インストールされてるフォントを羅列したいのですが、
> 羅列はできました。が、化け化け日本語非対応フォントが邪魔です。
> 日本語フォントかどうかってどうやって判定したらいいのでしょうか？
以下のコードで大体いけるでしょう。
しかし、ＭＳ ＰＲ２ゴシック等書体の種類が日本語でも
外字みたいなものまではチェックできません。
Dim I As Long
For I = 0 To Screen.FontCount - 1
Me.Font.Name = Screen.Fonts(I)
With Me.Font
.Charset = 128
If Screen.Fonts(I) = .Name And .Charset = 128 Then
Debug.Print .Name, .Charset
Me.Print "あいう", .Name
End If
End With
Next
|