フォント フォントの一覧をシートに書き出す

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォント フォントの一覧をシートに書き出す]

Sub UseFont()

Dim objcombo As CommandBarComboBox
Dim strFontName As String
Dim intFor As Integer
Dim sht As Worksheet
Dim lngThisRow As Long

Set sht = ActiveWorkbook.ActiveSheet
Set objcombo = CommandBars(4).Controls(1)

sht.Range("a1").Value = "FontName"

For intFor = 1 To objcombo.ListCount
strFontName = objcombo.List(intFor)
lngThisRow = sht.Range("a1").CurrentRegion.Rows.Count + 1
sht.Range("a" & lngThisRow).Value = strFontName
Next intFor

Set sht = Nothing
Set objcombo = Nothing

End Sub 





Production Japan Import Application. Since 1998