如何在形状表内更改Visio 2010形状标签

Question

我想知道是否有办法使用输入到用户定义的形状数据中的值来更改形状下方显示的文本。基本上是这样的：

shape.TextBelowShapeImage = Prop.Name

如果这个形状属性在形状表中的某个位置会很好。

感谢您的帮助。

Wayne E. Pfeffer

Answer 1

您可以使用字段轻松完成此操作。关键是在形状字符对象上使用 AddCustomFieldU 方法。

假设您的形状的属性具有标签为“FOO”，其值为“BAR”。 （该属性存储在命名行中 - 在本例中为“Prop.Row_1”，该形状仅在ShapeSheet中可见。

Dim vsoCharacters2 As Visio.Characters
Set vsoCharacters2 = myshape.Characters
vsoCharacters2.Begin = 0
vsoCharacters2.End = 0
vsoCharacters2.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits

运行此代码后，形状文本将显示为“BAR”