Excel vbscript 返回 excel 中可用的字体数量

【问题标题】：Excel vbscript return the number of fonts available in excelExcel vbscript 返回 excel 中可用的字体数量
【发布时间】：2016-04-04 19:35:54
【问题描述】：

是否可以访问 excel 中可用的字体？

我知道您可以使用以下方法设置字体：

 Range("A1:C1").Select
     With Selection.Font
         .Name = "Arial"
     End With

我想做的是在 excel 中返回字体的数量，然后遍历它们以获取每种字体的名称。

类似：

For Counter = 1 To excel.fonts
   ActiveCell = excel.font.Name
Next Counter

【问题讨论】：

标签： vba excel

【解决方案1】：

这应该给出计数并列出名称：

Sub dural()
   Dim FontList
   Dim i As Long
   Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)

   MsgBox FontList.ListCount

   For i = 1 To FontList.ListCount
       Cells(Rows.Count, 1).End(xlUp)(2) = FontList.List(i)
   Next i
End Sub

来自吉普车

Jeeped Post

【讨论】：

爱你的工作 Gary，工作就像一个魅力。之前没有遇到过 Application.CommandBars 会非常感谢。
@John 请注意改编自 Jeeped 的代码
感谢 Gary，感谢您为我指明 Jeeped 帖子的方向。