VB不引用CAD文件，object.Alignment=acAlignmentCenter如何使用

yswoyh

VB不引用CAD文件，object.Alignment= acAlignmentCenter 如何使用

yswoyh

dim i_text as object
i_text.Alignment = acAlignmentCenter ' 这个 acAlignmentCenter 不能通过编译
请问大神 在不引用CAD文件是，该如何使用，多谢 多谢

yshf

‘改为
dim i_text as object
'i_text.Alignment = acAlignmentCenter ' 这个 acAlignmentCenter 不能通过编译
i_text.Alignment = 1

yswoyh

VB 直接用值 可以对齐9中方式
'flexAlignLeftTop 0 单元格的内容左、顶部对齐。
'flexAlignLeftCenter 1 字符串的缺省对齐方式。单元格的内容左、居中对齐。
'flexAlignLeftBottom 2 单元格的内容左、底部对齐。
'flexAlignCenterTop 3 单元格的内容居中、顶部对齐。
'flexAlignCenterCenter 4 单元格的内容居中、居中对齐。
'flexAlignCenterBottom 5 单元格的内容居中、底部对齐。
'flexAlignRightTop 6 单元格的内容右、顶部对齐。
'flexAlignRightCenter 7 数值的缺省对齐方式。单元格的内容右、居中对齐。
'flexAlignRightBottom 8 单元格的内容右、底部对齐。
'flexAlignGeneral 9 单元格的内容按一般方式进行对齐。字符串按“左、居中”显示，数字按“右、居中”

yswoyh

yshf 发表于 2021-11-16 21:26
‘改为
dim i_text as object
'i_text.Alignment = acAlignmentCenter ' 这个 acAlignmentCenter 不能通 ...

多谢！祝您好运，我昨晚看了一下，找到9中对齐方式

mikewolf2k

也可以把这些变量在VB中定义下，这样代码部分可以通用并且易于理解。

bluelover

嗯，在VB中重新定义为常量，这样修改量可能最小。
要不就全部替换也容易。