即効テクニック |
書式設定ツールバーのフォント選択コンボボックスは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