Блог

Мне интересно, есть ли способ изменить текст, отображаемый под фигурой, используя значение, введенное в определенные пользователем данные фигуры. В основном что-то вроде:

форма.Текстовое изображение с уменьшенной формой = Prop.Name

Было бы неплохо, если бы это свойство формы было где-нибудь на листе формы.

Спасибо за любую помощь.

Wayne E. Pfeffer

Вы можете легко выполнить это с помощью полей. Ключ в том, чтобы использовать метод AddCustomFieldU для объекта shapes Characters.

Предположим, у вас есть фигура со свойством, имеющим метку «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»