这个问题我之前也碰到过，默认修改连接器长度的时候确实容易搞反端点——关键在于得先搞清楚你的箭头到底在连接器的Begin端还是End端，然后针对性调整对应端点的坐标就行。

核心原理 #

Excel里的StraightConnector有两个端点：BeginX/BeginY和EndX/EndY，箭头可以设置在任意一端。如果你的延长操作是改了非箭头端的坐标，自然会从尾部变长；要从箭头端延长，就得调整箭头所在端点的坐标，沿着线的延伸方向（或反方向）移动。

具体实现代码 #

情况1：连接器未连接到任何形状

直接修改端点坐标即可，代码示例如下：

Sub ExtendConnectorFromArrowEnd()
    ' 替换成你的连接器名称
    Dim targetConn As Shape
    Set targetConn = ActiveSheet.Shapes("Straight Connector 1")
    
    Dim extendBy As Double
    extendBy = 100 ' 要延长的长度，单位是Excel的磅（Point）
    
    ' 计算当前连接器的方向向量和长度
    Dim dx As Double, dy As Double, currentLength As Double
    dx = targetConn.ConnectorFormat.EndX - targetConn.ConnectorFormat.BeginX
    dy = targetConn.ConnectorFormat.EndY - targetConn.ConnectorFormat.BeginY
    currentLength = Sqr(dx ^ 2 + dy ^ 2)
    
    ' 判断箭头所在端点，然后调整坐标
    If targetConn.ConnectorFormat.ArrowheadBegin <> msoArrowheadNone Then
        ' 箭头在Begin端，往远离End的方向移动Begin端点
        targetConn.ConnectorFormat.BeginX = targetConn.ConnectorFormat.BeginX - (dx / currentLength) * extendBy
        targetConn.ConnectorFormat.BeginY = targetConn.ConnectorFormat.BeginY - (dy / currentLength) * extendBy
    ElseIf targetConn.ConnectorFormat.ArrowheadEnd <> msoArrowheadNone Then
        ' 箭头在End端，往远离Begin的方向移动End端点
        targetConn.ConnectorFormat.EndX = targetConn.ConnectorFormat.EndX + (dx / currentLength) * extendBy
        targetConn.ConnectorFormat.EndY = targetConn.ConnectorFormat.EndY + (dy / currentLength) * extendBy
    Else
        MsgBox "这个连接器没有箭头哦，没法从箭头端延长！"
        Exit Sub
    End If
End Sub

情况2：连接器已连接到其他形状

如果连接器是和其他形状绑定的，直接改坐标会被Excel自动修正，所以得先断开连接，修改后再重新绑定：

Sub ExtendConnectedConnectorFromArrowEnd()
    Dim targetConn As Shape
    Set targetConn = ActiveSheet.Shapes("Straight Connector 1")
    
    Dim extendBy As Double
    extendBy = 100
    
    ' 先记录原来的连接信息，然后断开
    Dim beginShape As Shape, endShape As Shape
    Dim beginSite As Long, endSite As Long
    
    If targetConn.ConnectorFormat.BeginConnected Then
        Set beginShape = targetConn.ConnectorFormat.BeginConnectedShape
        beginSite = targetConn.ConnectorFormat.BeginConnectionSite
        targetConn.ConnectorFormat.BeginDisconnect
    End If
    
    If targetConn.ConnectorFormat.EndConnected Then
        Set endShape = targetConn.ConnectorFormat.EndConnectedShape
        endSite = targetConn.ConnectorFormat.EndConnectionSite
        targetConn.ConnectorFormat.EndDisconnect
    End If
    
    ' 计算方向并延长（和无连接的逻辑一致）
    Dim dx As Double, dy As Double, currentLength As Double
    dx = targetConn.ConnectorFormat.EndX - targetConn.ConnectorFormat.BeginX
    dy = targetConn.ConnectorFormat.EndY - targetConn.ConnectorFormat.BeginY
    currentLength = Sqr(dx ^ 2 + dy ^ 2)
    
    Dim extendedSuccess As Boolean
    extendedSuccess = True
    
    If targetConn.ConnectorFormat.ArrowheadBegin <> msoArrowheadNone Then
        targetConn.ConnectorFormat.BeginX = targetConn.ConnectorFormat.BeginX - (dx / currentLength) * extendBy
        targetConn.ConnectorFormat.BeginY = targetConn.ConnectorFormat.BeginY - (dy / currentLength) * extendBy
    ElseIf targetConn.ConnectorFormat.ArrowheadEnd <> msoArrowheadNone Then
        targetConn.ConnectorFormat.EndX = targetConn.ConnectorFormat.EndX + (dx / currentLength) * extendBy
        targetConn.ConnectorFormat.EndY = targetConn.ConnectorFormat.EndY + (dy / currentLength) * extendBy
    Else
        MsgBox "连接器没有箭头，无法执行延长操作！"
        extendedSuccess = False
    End If
    
    ' 重新连接原来的形状（如果之前有绑定）
    If extendedSuccess Then
        If Not beginShape Is Nothing Then
            targetConn.ConnectorFormat.BeginConnect beginShape, beginSite
        End If
        If Not endShape Is Nothing Then
            targetConn.ConnectorFormat.EndConnect endShape, endSite
        End If
    End If
End Sub

关键注意点 #

• Excel的坐标系统是左上角为原点(0,0)，向右X值增加，向下Y值增加，计算方向向量的时候要注意这个规则。
• extendBy的单位是磅（Point），你可以根据需要调整数值。
• 如果你的连接器箭头同时在两端，代码会优先处理Begin端的箭头，你可以根据需求调整判断逻辑。

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