Excel提取繫統安裝的字體列錶

在創建的應用程序中， 我們輸入信息可以用文本框，但是文本框是單純的文本文字，沒有其他格式

可以用富文本控件，富文本編輯器是帶有格式的。

我們也可以調用繫統的文字格式。下麵的代碼，可以穫取繫統安裝的字體名稱。

Sub ShowInstalledFonts()
    Dim FontList As CommandBarControl
    Dim TempBar As CommandBar
    Dim i As Long
    

    Set TempBar = Application.CommandBars.Add
    Set FontList = TempBar.Controls.Add(ID:=1728)
    

    Range("A:A").ClearContents     '字體逐箇添加到A列中
    For i = 0 To FontList.ListCount - 1
        Cells(i + 1, 1) = FontList.List(i + 1) 
    Next i
    
  
    TempBar.Delete   '清空內容
End Sub

點擊按鈕，字體名稱添加到A列中，該按鈕代碼如上