Visio Изменить данные формы / Свойства с VBA

Question

для проекта Я создаю пользовательскую форму, которая считывает значения из текстовых полей и генерирует формы с данными. Поэтому после удаления формы я хочу изменить строки данных формы, например «Prop.SO_Name».

Когда я использую

shp.CellsU("Prop.SO_Name").FormulaU = """Test"""

Работает просто отлично. Но я хочу прочитать значение из текстового поля. Я пытался

Dim cell As Visio.cell
Set cell = shp.Cells("Prop.SO_Name")
cell.FormulaU = TextBox2.Value

Но он возвращает ошибку времени выполнения. Я тоже пробовал

Dim str as String
str = Textbox2.value
Dim cell As Visio.cell
Set cell = shp.Cells("Prop.SO_Name")    
cell.FormulaU = str

С тем же результатом.

Я изучил документацию для свойства FormulaU, но они делают это, по-видимому, так же, как я пытался. Я явно что-то упускаю.

Answer 1

`Попробуйте использовать

Dim cell As Visio.cell  
Set cell = shp.Cells("Prop.SO_Name")  
cell.FormulaU = chr(34) & UserForm1.TextBox2.Value & chr(34)

Обновление Вы пытаетесь записать строку в ячейку ShapeSheet! Двойные кавычки в строке - это один из способов указать VB [A] создать строку со встроенными символами кавычек в ней.