VBA——获取字体列表

最新推荐文章于 2023-05-30 07:08:17 发布

肥宅打怪兽

最新推荐文章于 2023-05-30 07:08:17 发布

阅读量3.4k

点赞数

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.csdn.net/idiotxl_1020/article/details/38268987

版权

VBA 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

自己动手做了一个可以改变所有ppt的字体格式的小插件，使用VBA开发。开发过程中，因为不想自己将字体的类型一个个add进combox（这样子多累啊），就写了下面这个自动获取字体类型的函数，并将其写入到combox中。

Sub getFont()
    Set FontList = Application.CommandBars("Formatting").FindControl(Id:=1728)
    If FontList Is Nothing Then
        Set TempBar = Application.CommandBars.Add
        Set FontList = TempBar.Controls.Add(Id:=1728)
    End If
    For I = 0 To FontList.ListCount - 1
       fontName.AddItem (FontList.List(I + 1))
    Next I
    On Error Resume Next
    TempBar.Delete
End Sub

其中，fontName是combox控件，运行结果如下。