如何用VB.NET让Visio的Position Belt形状显示指定人名

为啥直接改Text没用？ #

Visio里的Position Belt是组织图专用形状，它上面显示的“Name”不是普通的文本内容，而是绑定了形状的**自定义属性（Shape Data）**里的Name字段。你直接设shape.Text，改的是形状的主文本区，根本碰不到这个绑定的字段，所以自然还是显示默认的“Name”。

两种靠谱的解决办法 #

办法1：直接修改自定义属性单元格 #

直接访问形状的Prop.Name单元格，把值改成你要的名字：

' 假设shape是你创建的Position Belt形状实例
shape.CellsU("Prop.Name").FormulaU = """John Doe"""

注意：这里的Prop.Name是这个形状自定义属性的内部名称，要是找不到，你可以打开Visio的「开发工具」选项卡，选「显示ShapeSheet」，在「Shape Data」区域找对应的名称。

办法2：用组织图专用API（更省心） #

如果是做组织图，推荐用Visio自带的Organization Chart API，专门管这类形状的属性：

' 先添加Microsoft.Office.Interop.Visio.OrganizationChart的引用
Dim orgChart As New Visio.OrganizationChart.OrganizationChart()
Dim orgShape As Visio.OrganizationChart.Shape = orgChart.GetOrganizationShape(shape)
orgShape.Name = "John Doe"

这种方法不用记属性的内部名称，适配不同版本的组织图模板，不容易出错。

验证步骤 #

1. 运行修改后的代码，生成Position Belt形状
2. 右键形状选择「数据 > 形状数据」，查看Name字段是否已更新为“John Doe”
3. 确认形状上的“Name”显示区域是否同步更新

踩坑提示 #

• 确保你引用的是正确的组织图模板，一般英文版本为ORGCH_U.VSTX，中文版本对应名称
• 若找不到Prop.Name，可通过Visio「开发工具」>「显示ShapeSheet」查看Shape Data区域的属性名称，避免拼写错误

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