如何用VB.NET修改Visio中标签表单控件的标题？

问题原因分析 #

1. 你用.Text属性修改的是形状的外部标识名称（Visio界面里形状的名称标签），而非文本框内部显示的内容。
2. Prop.Caption是自定义属性集合里的单元格，只有给形状添加了自定义属性时才会存在，普通文本框没有这个单元格，所以会抛出「Unexpected End of File」错误。

修复代码 #

以下两种方法都能直接修改文本框内部的显示内容：

方法1：修改Text单元格

Dim testingShape As Visio.Shape = Application.ActivePage.Shapes("lbltesting")
testingShape.Cells("Text").ResultIU = "Date created: " & Application.UserName & " " & Now.ToString()

方法2：使用Characters对象（更灵活，支持部分文本修改）

Dim testingShape As Visio.Shape = Application.ActivePage.Shapes("lbltesting")
testingShape.Characters.Text = "Date created: " & Application.UserName & " " & Now.ToString("yyyy-MM-dd HH:mm:ss")

额外提示 #

• 确认目标形状的名称lbltesting拼写完全正确，Visio对形状名称大小写敏感
• 可以用Now.ToString("格式字符串")自定义日期显示格式，比如yyyy-MM-dd HH:mm:ss能生成更规范的时间戳

内容的提问来源于stack exchange，提问作者Robit01010