VBA中如何设置字体

中世纪骑士

我想读取数据库里的内容，可是汉字无法显示，显示的是问号。

Dim newText As AcadTextStyle

Set newText = ThisDrawing.textstyles.Add("style1")

      newText.height = 10 ' 

      newText.fontFile = "txt.shx"

这样还是不行，如何设置成“仿宋”

   

中世纪骑士

我已经知道怎么弄了，问题解决

还要感谢一下网友huangbx，在你的提示下知道了如何使用windows中的字体