如何更改形状工作表内的Visio 2010形状标签

Question

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

shape.TextBelowShapeImage = Prop.Name

请将这种形状属性在造型片是什么地方是好的。

谢谢你的帮助。

韦恩E.普费弗

Answer 1

您可以轻松地通过使用场做到这一点。关键是使用AddCustomFieldU方法对形状字符对象。

假设您的财产有一个标签的值为“BAR”的“FOO”。 （该属性存储在一个名为行 - 在这种情况下，“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”