Вы можете легко сделать это, используя Поля . Ключ заключается в использовании метода 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»