如何在Visio 2306中为连接线端点添加端口编号标签？

问题背景 #

使用Visio 2306制作网络文档时，需要给连接线端点添加端口编号标签。尝试将连接线转组并加入文本框的方法后，出现两个问题：

• 文本框大小随连接线缩放（已关闭形状行为的缩放设置仍无效）
• 文本框位置相对连接线中心缩放（虽仍附着端点，但位置偏移逻辑不符合需求）
  编辑形状表的PinX、PinY值后，拖动附着形状设置无法持久保存，怀疑需用VBA但未深入尝试。

方法一：形状数据+数据图形绑定（无需VBA） #

• 选中目标连接线，右键选择形状数据，添加两个自定义字段（如端口起始编号、端口结束编号）
• 插入两个文本框，分别放置在连接线两端点附近
• 选中文本框，点击数据选项卡→数据图形→新建数据图形，选择文本类型，绑定到对应的形状数据字段
• 选中连接线和文本框，右键→粘合→粘合到形状，确保文本框跟随端点移动且不随连接线缩放变形

方法二：修改形状表公式（持久化位置） #

直接通过形状表绑定文本框位置到连接线端点，避免缩放偏移：

1. 选中文本框，打开开发工具选项卡→形状表
2. 修改PinX和PinY公式（替换连接线的ID为实际连接线的形状ID，偏移量可自行调整）：
   • 绑定起点：
     PinX = Sheet.连接线的ID!BeginX + 0.2
PinY = Sheet.连接线的ID!BeginY + 0.2
   • 绑定终点：
     PinX = Sheet.连接线的ID!EndX + 0.2
PinY = Sheet.连接线的ID!EndY + 0.2
3. 设置文本框大小为固定值，例如Width = 0.5、Height = 0.25，关闭形状的“随形状缩放”设置
4. 将文本框与连接线组合，拖动连接线或端点时，文本框位置会始终绑定到端点且大小固定

方法三：VBA批量添加端口标签 #

若需批量处理大量连接线，可使用以下VBA代码：

Sub AddPortLabels()
    Dim vsoShape As Shape
    Dim vsoLabel As Shape
    Dim beginOffsetX As Double, beginOffsetY As Double
    Dim endOffsetX As Double, endOffsetY As Double
    
    ' 设置标签偏移量，可根据需求调整
    beginOffsetX = 0.2
    beginOffsetY = 0.1
    endOffsetX = -0.2
    endOffsetY = 0.1
    
    ' 遍历选中的连接线
    For Each vsoShape In ActiveWindow.Selection
        If vsoShape.Type = visTypeConnector Then
            ' 创建起点端口标签
            Set vsoLabel = ActivePage.DrawRectangle( _
                vsoShape.Cells("BeginX").ResultIU - 0.2, _
                vsoShape.Cells("BeginY").ResultIU - 0.1, _
                vsoShape.Cells("BeginX").ResultIU + 0.2, _
                vsoShape.Cells("BeginY").ResultIU + 0.1)
            vsoLabel.Text = "Port " & vsoShape.Index ' 自定义标签内容
            vsoLabel.Cells("Width").FormulaU = "0.4"
            vsoLabel.Cells("Height").FormulaU = "0.2"
            vsoLabel.Cells("PinX").FormulaU = "Sheet." & vsoShape.ID & "!BeginX + " & beginOffsetX
            vsoLabel.Cells("PinY").FormulaU = "Sheet." & vsoShape.ID & "!BeginY + " & beginOffsetY
            
            ' 创建终点端口标签
            Set vsoLabel = ActivePage.DrawRectangle( _
                vsoShape.Cells("EndX").ResultIU - 0.2, _
                vsoShape.Cells("EndY").ResultIU - 0.1, _
                vsoShape.Cells("EndX").ResultIU + 0.2, _
                vsoShape.Cells("EndY").ResultIU + 0.1)
            vsoLabel.Text = "Port " & (vsoShape.Index + 100) ' 自定义标签内容
            vsoLabel.Cells("Width").FormulaU = "0.4"
            vsoLabel.Cells("Height").FormulaU = "0.2"
            vsoLabel.Cells("PinX").FormulaU = "Sheet." & vsoShape.ID & "!EndX + " & endOffsetX
            vsoLabel.Cells("PinY").FormulaU = "Sheet." & vsoShape.ID & "!EndY + " & endOffsetY
            
            ' 将连接线与标签组合
            ActivePage.Shapes.Range(Array(vsoShape.ID, vsoLabel.ID)).Group
        End If
    Next vsoShape
End Sub

使用步骤：

• 打开开发工具选项卡→Visual Basic
• 插入模块，粘贴上述代码
• 选中需要添加标签的连接线，运行宏即可

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