旋转文本_VBAExcel:nee

iyant · 发表于 2022-7-6 22:10:35

我使用此代码导入文本，但无法旋转文本。
需要任何人的帮助。

Sub Txt（）
将ACAD作为AcadApplication进行Dim
将txObj设置为acadText
Dim rotObj作为AcRotationAngle
Dim ws As范围
双精度CrdNo（0到2）
Dim TxNo As字符串
Dim hNo作为双精度
Dim angl为双精度
将最后一行变暗为双行
Dim i为整数
尺寸j为整数
将k设置为整数

设置ws=工作表（“SCR”）。细胞
LastRow=ws（Rows.Count，20）。结束（xlUp）。一行
hNo=0.3
角度=90
对于i=2到最后一行
CrdNo（0）=ws（i，20）：CrdNo（1）=ws（i，21）：CrdNo（2）=“0”
TxNo=ws（i，21）

设置txObj=AcadApplication。ActiveDocument。模型空间。添加文本（TxNo、CrdNo、hNo）
'设置rotObj=AcadApplication。ActiveDocument。模型空间。添加图案填充。旋转（CrdNo，angl）'
下一个i
末端接头

谢谢你的帮助