Excel提取繫統(tǒng)安裝的字體列錶

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

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

我們也可以調(diào)用繫統(tǒng)的文字格式。下麵的代碼，可以穫?cè)±M統(tǒng)安裝的字體名稱。

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   '清空內(nèi)容
End Sub

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