VBA中如如设计宋体字体？

unfeltboy

VBA中如何将文字样式的字体设置为宋体，TxtStyle.Name="宋体" 或TxtStyle.Name="simsun.ttf" 或TxtStyle.Name="simsun.ttc"

都通不过，不知道该如何呢？

azjmjsj

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=24260

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

billtanglu

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

写了，灰常有用

thokay

billtanglu 发表于 2008-4-9 09:40
Public Sub 字体样式() '============设置字体============ Dim typeface As String Dim textbol ...

谢啦，灰常有用