今天和大家分享一个小的知识点，假如我们想知道我们Excel中间已经安装的所有字体，你是如何计算一共有多少字体的呢？
你也许会打开开始选项卡，然后选择字体对话框，可是你殊不知这里面的字体有非常之多，我们不便把他们数出来，我们有没有简单的方法呢？答案是肯定有的。
在这个时候我们用函数肯定是没有办法得到的啦！我们可以利用CommandBar来处理这个问题。此为官方的解释如下：
我们还是先看看代码是如何实现的吧，一起来看看！
执行完成以后的效果如下所示：
同时他们单元格的名称就是我们想要的已经安装的字体名称和样式，是不是很简单？
我们的核心代码就是以下几句话：
Set TempBar = Application.CommandBars.Add
Set FontList = TempBar.Controls.Add(ID:=1728)
FontList.List(i + 1)
也许你会问1728是什么意思，它代表的就是我们字体的对话框：另外我们的其他的对话框的代码如下：
最后附上我们的源代码，如下：
以上就是我们今天和大家说的如何获取我们已经安装的字体，但是需要说明的一点是我们在Excel中如果大量是使用很多的字体，那么会让我们的电脑吃不消，甚至会使Excel直接崩溃，所以建议你不要在同一个工作薄使用很多的字体。
如果有不明白的或者不懂的可以在下方留言，我们会一一解答的。
我是Excel教案，关注我持续分享更多的Excel技巧！
