请问大虾,这代码怎么不能运行?
代码如下,帮忙改正 谢谢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 可以啊,可能是Text变量没有声明,而你使用了Option Explicit。
页:
[1]