Excel获取当前已经安装的所有字体

最新推荐文章于 2024-09-14 08:25:16 发布

biubiub1u

最新推荐文章于 2024-09-14 08:25:16 发布

阅读量368

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/biubiub1u/article/details/116521660

版权

Excel VBA 字体列表单元格编程

关键词由CSDN通过智能技术生成

在excel中打开开发工具（文件——》选项——》自定义功能区）
excel开发工具
点击visual basic
字体列表
放上以下这段代码

Sub Fontlistall()
    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
    For i = 0 To FontList.ListCount - 1
        Cells(i + 1, 1) = FontList.List(i + 1)
    Next i
    TempBar.Delete
End Sub