システムに入っているフォント全てで「ABC0123」という文字を見てみたいのですが，いちいちリストからフォントを選択するのが面倒です．
マクロか何かで一括で書体確認をやりたいのですが，どうすればよいのかわかりません．
ご教授お願いします．
No.3
33
7
60pt
以下のマクロで実現できます。
Sub Macro1()
Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)
For i = 0 To FontList.ListCount - 1
Cells(i + 1, 1).Value = FontList.List(i + 1)
Cells(i + 1, 1).Font.Name = FontList.List(i + 1)
Next i
End Sub
No.1
160
15pt
excelではないですが、フリーソフトでは書体の一覧表示ができます。
フォントインストーラーSAKURAはフォントのインストール、アンインストール、一時インストール、レジストリの操作、シンボルフォント、ユニコードの閲覧を行う総合フォント管理ツールです。
・インストール済みのフォントの情報確認、書体の一覧表示、アンインストール
ありがとうございました．
使ってみましたが，やはり見比べができる方法を待ってみます．
No.2
18911
どれが良いですか？
現在，FontオブジェクトのNameプロパティに直接ファイル名を指定することで書体変更ができるので，ファイル名リストを作ってマクロで読み込んで指定するという方法をとっています．
あまりスマートじゃないですが．．．
No.3
337
ここでベストアンサー
60pt
以下のマクロで実現できます。
Sub Macro1()
Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)
For i = 0 To FontList.ListCount - 1
Cells(i + 1, 1).Value = FontList.List(i + 1)
Cells(i + 1, 1).Font.Name = FontList.List(i + 1)
Next i
End Sub
2006-07-24 00:09:29
503行目まで来ると「FontクラスのNameプロパティをせっていできません」というエラーが出てしまいます．
2006-07-24 01:00
挙動からわかったことですが，どうやらExcelではひとつのBookでフォント設定できる箇所が500程度であるようです．
512からは遠いし，なんとも腑に落ちませんが．．．
No.4
1844155
5pt
コントロールパネル→フォントで
Windowsにインストールさているフォントを表示
表示したいものを選択して開くで見れます。
任意の文字列を任意の大きさで，しかも他と比較しながら見たいので．．．
天狼
2006/07/24 03:54:13
1
2
2
2
2
341
339
2006-07-24 00:09:29
503行目まで来ると「FontクラスのNameプロパティをせっていできません」というエラーが出てしまいます．
2006-07-24 01:00
挙動からわかったことですが，どうやらExcelではひとつのBookでフォント設定できる箇所が500程度であるようです．
512からは遠いし，なんとも腑に落ちませんが．．．