システムにインストールされているフォント名の取得

質問

VB.NETですが、システムにインストールされているフォント名を取得するために下記のコードを書きました。

Private Sub GetSystemFonts(ByRef SysFontString As String)

Dim SystemFont As New System.Drawing.Text.InstalledFontCollection

SysFontString = ""
For Each sf As System.Drawing.FontFamily In SystemFont.Families
If SysFontString = "" Then
SysFontString = sf.Name
Else
SysFontString = SysFontString & "," & sf.Name
End If
Next

End Sub

しかし、このコードだとTrueTypeFontしか取れないようで、OutLineFontなどは取得できないようです。
フォントの種類に関わらず、インストールされている全てのフォント名を取得する方法はないでしょうか？
よろしくお願いします。

回答No.1

tsubuyuki · ベストアンサー

Sub outFontInfo()
Dim i As Long
Dim FN As CommandBarComboBox

　　　　Columns("A:A").Delete

　　　　Set FN = Application.CommandBars.FindControl(ID:=1728)
　　　　For i = 1 To FN.ListCount
　　　　　　　　With Cells(i, 1)
　　　　　　　　　　　　.Value = FN.List(i)
　　　　　　　　　　　　.Font.Name = FN.List(i)
　　　　　　　　End With
　　　　Next
End Sub

例えばこんな感じでどうでしょう。

お礼

回答いただきありがとうございます。
VB.NET単体では難しいみたいなので、教えていただいたやり方で無事解決しました。
ありがとうございました。