VBA中如如设计宋体字体？

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

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中如如设计宋体字体？

发表回复

精选推荐