Вопрос:
для проекта я создаю UserForm, который считывает значения из текстовых полей и генерирует Shapes с данными. Поэтому после удаления фигуры я хочу изменить строки данных Shape Data, например “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, но они это делают, по-видимому, так же, как я и пытался. Ясно, что я что-то упускаю.
Лучший ответ:
“Попробуйте использовать
Dim cell As Visio.cell Set cell = shp.Cells(«Prop.SO_Name») cell.FormulaU = chr(34) & UserForm1.TextBox2.Value & chr(34)
Обновление Вы пытаетесь записать строку в ячейку ShapeSheet! Двойные кавычки внутри строки – один из способов сказать VB [A] сделать строку со встроенными символами метки кавычек.
