MicroStation VBA 查找指定名称字体

字体: 小中大 | 打印发布: 2007-10-01 11:18 作者: 网友搜集来源: 路桥吾爱网络搜集查看: 2822次评论: 0条好评: 0分

Function FindFontByName(fFontName As String) As Font
Dim fFonts As Fonts
Dim fFont As Font
Set FindFontByName = Nothing
Set fFonts = ActiveDesignFile.Fonts
For Each fFont In fFonts
If fFont.Name = fFontName Then Set FindFontByName = fFont
Next
End Function
说明:通过指定字体的名称返回相应字体,也放有更好的办法,但我暂时是这样实现的,好在也不太花时间。