Excel中列出系统字体
SubGetFontList()DimmyControlAsCommandBarComboBoxDimIAsIntegerSetmyControl=Application.CommandBars("Formatting").FindControl(ID:=1728)WithmyControlForI=1To.ListCount-1Cells(I,1)=.List(I)NextEndWithEndSub
下载地址
用户评论
