EXCEL フォント名をドロップダウンリストに

質問

EXCELのセルの入力規則ドロップダウンリストに、フォント名を表示する方法は無いでしょうか？

回答No.1

MackyNo1

以下のようなマクロを走らせて、フォント名の一覧を取得して、これを入力規則のリストに使ってみてはいかがでしょう。

Sub フォント取得()
Dim i As Long
With Application.CommandBars("Formatting").Controls(1)
For i = 1 To .ListCount
Cells(i, 1) = .List(i)
Next i
End With
End Sub

お礼

出来ました。
ありがとうございました。