よく使うフォントを上の方に置きたい。

質問

ワード・エクセルで文章を作成するのに、使いたいフォントが表の下の方にあるため、いちいち探しに行かねばなりません。よく利用するフォントを上の方に置いておきたいのですが、方法を教えて下さい。windows１０です。

回答No.2

imogasi

質問の、したいこと、とずれているかもしれませんが、思いついたことを記してみます。
（一般にエクセルワードのメニューなどをいじくる（表示順序を変えるなど）のは、させないようにしてあるように思う（経験から）。
ーー
それで、ＶＢＡを使えないか調べた。
http://officetanaka.net/excel/vba/tips/tips41.htm
フォントの一覧を取得する
を参考にして
標準モジュールに
Sub test01()
Dim i As Long
With Application.CommandBars("Formatting").Controls(1)
For i = 1 To .ListCount
Cells(i, "A") = .List(i)

Next i
End With
End Sub
で、自分のそのパソコンに入っているフォント名がＡ列に出る。
それで望みの書体のインデックス番号を知る。
目立つところの「勘亭流」にしてみた。
小生の場合は「勘亭流」は６番でした。
Sub test02()
Dim i As Long
With Application.CommandBars("Formatting").Controls(1)
MsgBox .List(6)
Range("C1:C20").Font.Name = .List(6)
End With
End Sub
これで指定セル範囲のフォントは「勘亭流」になった。
上記そのままでは機動的でないので、これをボタン等のクリックイベントやメニューに割り当てておくと、迷いは少なく、指定できるのではないかな。
（結論）ＶＢＡを使えば、質問に近いことができるということ。
ーー
コードは古い時代からのものと思うが、エクセル２０１３で確認。
ーー
ワードＶＢＡでフォント一覧を作る。
Sub test02()
'あらかじめワードの新規文書で、ワードの表を相当行数で作成しておく
Dim cb As CommandBarComboBox
Set cb = Application.CommandBars.FindControl(ID:=1728) 'フォント
'MsgBox cb.ListCount
For i = 1 To cb.ListCount
ActiveDocument.Tables(1).Cell(i, 1).Range = cb.List(i)
Next i
End Sub
を実行。

お礼

有難うございます。　う～ん　これは難解そうです。

回答No.1

s-uzen

こちらが参考になると思います。

WordやExcelで使うフォントについて質問です
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12137402167

補足

有難うございました。ワードの方は「最近使用したフォント」の方に上がってきました。エクセルの方は出来ませんでした。