kkai 发表于 2004-3-3 10:44:00

请问大虾,这代码怎么不能运行?

代码如下,帮忙改正 谢谢
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long
Text = "Arial"
Bold = False
Italic = True
charSet = 0
PitchandFamily = 34
ThisDrawing.ActiveTextStyle.SetFont Text, Bold, Italic, charSet, PitchandFamily
ThisDrawing.Regen acActiveViewport

efan2000 发表于 2004-3-3 10:56:00

可以啊,可能是Text变量没有声明,而你使用了Option Explicit。
页: [1]
查看完整版本: 请问大虾,这代码怎么不能运行?