VBAを利用してフォント見本帳を作成

パソコンのFontを調べたぁ～い

そんな希望を叶えるVBAです。

コードは以下のとおり。

Sub FontList() Dim i As Integer Dim Text As String Dim fontObj As Object Cells(1, 1) = “No” Cells(1, 2) = “フォント名” Cells(1, 3) = “見本” Text = “永遠の愛1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ” Set fontObj = Application.CommandBars(“Formatting”).Controls.Item(1) For i = 1 To fontObj.ListCount Cells(i + 1, 1) = i Cells(i + 1, 2) = fontObj.List(i) Cells(i + 1, 3) = Text Cells(i + 1, 3).Font.Name = fontObj.List(i) Next i End Sub

注意1:フォントをたくさんインストールしていると、表示まで時間がかかります。
注意2:パソコンのパワーが足りないと、表示まで時間がかかります。場合によってはフリーズします。

表示はこんな感じになります。

フォント【書体】一覧表を印刷しておけば、フォントを変更するときに役立ちます。

列を広げて、見やすくしてください。