如何以编程方式左对齐 Visio 形状中的文本？

Question

假设我创建了一个 Rectangle 形状并添加了文本：

Shape_Obj = Page_Obj.DrawRectangle(1, 1, 2, 2)

Shape_Obj.Text = "Hi, I'm a Rectangle!"

默认情况下，文本居中。

我想左对齐文本。

我如何设置 TextStyle？

Shape_Obj.TextStyle = "???" ' Left align?

另外，我可以设置的所有可能的 TextStyles 是什么？ 我没有在 Microsoft 页面中看到它们？

谢谢，埃德

Answer 1

Shape_Obj.CellsSRC(visSectionParagraph, 0, visHorzAlign).FormulaU = "0"

下载并安装 Visio SDK 以获取完整详细信息。

该段落的其他值是：

0 左对齐 visHorzLeft

1 中心 visHorzCenter

2 右对齐 visHorzRight

3 对齐 visHorzJustify

4 强制证明 visHorzForce

Microsoft Office Visio 文档 - HAlign 值