How to change Visio 2010 Shape Label inside the shape sheet

I am wondering if there is a way to change the t开发者_开发问答ext displayed below a shape using a value entered into the user defined shape data. Basically something like:

shape.TextBelowShapeImage = Prop.Name

It would be nice if this shape property were somewhere in the shape sheet.

Thank you for any help.

Wayne E. Pfeffer

You can easily accomplish this by using Fields. The key is to use the AddCustomFieldU method on the shapes Characters object.

Assume you have a shape with a property having a label of "FOO" with value "BAR". (The property is stored in a named row - in this case "Prop.Row_1" which is only visible in the ShapeSheet for the shape.

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

After this code is run, the text of the shape will appear as "BAR"