对于一个项目,我正在创建一个UserForm,它从文本框中读取值并生成带有数据的Shapes。因此,在删除形状后,我想更改形状数据行,例如“Prop.SO_Name”。
…
`试试用
Dim cell As Visio.cell Set cell = shp.Cells("Prop.SO_Name") cell.FormulaU = chr(34) & UserForm1.TextBox2.Value & chr(34)
的 更新 强> 你尝试将字符串写入ShapeSheet单元格!字符串中的双引号是告诉VB [A]制作带有嵌入引号字符的字符串的一种方法。