書式設定ツールバーのフォント選択コンボボックスはCommandBarComboBox
であるため、そのリストを取得することが可能です。

サンプルでは、リストを取得することで使用可能なフォントの一覧をシート
上に作成します。

Sub AvailableFonts()

Dim Ctrl As CommandBarComboBox
Dim i As Integer

Set Ctrl = Application.CommandBars("Formatting"). _
        Controls("フォント(&F):")

For i = 1 To Ctrl.ListCount
ActiveSheet.Cells(i, 1).Value = Ctrl.List(i)
Next i

End Sub