|
|
代码如下，帮忙改正 谢谢
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 |
|
置顶卡
