社区 › VB › VBA中如如设计宋体字体？

unfeltboy 发表于 2008-4-4 21:26:00

VBA中如如设计宋体字体？

VBA中如何将文字样式的字体设置为宋体，TxtStyle.Name="宋体" 或TxtStyle.Name="simsun.ttf" 或TxtStyle.Name="simsun.ttc"
都通不过，不知道该如何呢？

azjmjsj 发表于 2008-4-6 20:49:00

***************************************************
西北凡人http://www.abofanyi.com/blog

billtanglu 发表于 2008-4-9 09:40:00

Public Sub 字体样式() '============设置字体============
Dim typeface As String
Dim textbold As Boolean
Dim textitalic As Boolean
Dim textcharset As Long
Dim textpfamily As Long
acadDoc.ActiveTextStyle.GetFont typeface, textbold, textitalic, textcharset, textpfamily
typeface = "宋体"
acadDoc.ActiveTextStyle.SetFont typeface, textbold, textitalic, textcharset, textpfamily
acadDoc.Regen acActiveViewport
End Sub

thokay 发表于 2012-7-3 09:59:00

写了，灰常有用

thokay 发表于 2012-7-3 10:00:00

谢啦，灰常有用

查看完整版本: VBA中如如设计宋体字体？