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