嘿，刚好我之前做过类似的VBA自动化任务，完全能解决你的问题！先给你一个明确的答案：组合形状完全可以当作单个Shape对象来引用，不用拆分组就能直接操作它的连接、位置这些属性。下面是具体的实现步骤和代码示例：

核心思路 #

1. 先获取左右两个组合形状的Shape对象引用
2. 添加带箭头的连接线，并将它的两端分别对齐到两个组合形状的中部
3. 调整连接线的样式（箭头、线宽等）

完整代码示例 #

Sub ConnectMilestoneGroups()
    ' 定义变量存储两个组合形状
    Dim leftMilestoneGroup As Shape
    Dim rightMilestoneGroup As Shape
    
    ' 替换成你的组合形状名称/标识方式
    ' 方式1：如果知道形状名称，直接引用（更高效）
    ' Set leftMilestoneGroup = ActiveSheet.Shapes("Left_Milestone_Group")
    ' Set rightMilestoneGroup = ActiveSheet.Shapes("Right_Milestone_Group")
    
    ' 方式2：用你原来的Range(Array())方式获取
    Set leftMilestoneGroup = ActiveSheet.Shapes.Range(Array("左侧组合形状的标识")).Item(1)
    Set rightMilestoneGroup = ActiveSheet.Shapes.Range(Array("右侧组合形状的标识")).Item(1)
    
    ' 添加直线连接线（如果要曲线可以换成msoConnectorCurve）
    Dim connectorLine As Shape
    Set connectorLine = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 0, 0, 0, 0)
    
    ' 方法1：通过连接点绑定到组合形状（自动对齐中心）
    With connectorLine.ConnectorFormat
        ' 0是默认的中心连接点，大部分形状都适用
        .BeginConnect ConnectedShape:=leftMilestoneGroup, ConnectionSite:=0
        .EndConnect ConnectedShape:=rightMilestoneGroup, ConnectionSite:=0
        ' 强制重新计算连接线路径，确保精准对齐
        .Parent.RerouteConnections
    End With
    
    ' 方法2：手动计算中心坐标（适合连接点编号不对的情况）
    ' Dim leftCenterX As Double, leftCenterY As Double
    ' leftCenterX = leftMilestoneGroup.Left + leftMilestoneGroup.Width / 2
    ' leftCenterY = leftMilestoneGroup.Top + leftMilestoneGroup.Height / 2
    ' Dim rightCenterX As Double, rightCenterY As Double
    ' rightCenterX = rightMilestoneGroup.Left + rightMilestoneGroup.Width / 2
    ' rightCenterY = rightMilestoneGroup.Top + rightMilestoneGroup.Height / 2
    ' With connectorLine
    '     .Left = leftCenterX
    '     .Top = leftCenterY
    '     .Width = rightCenterX - leftCenterX
    '     .Height = rightCenterY - leftCenterY
    ' End With
    
    ' 设置连接线的箭头样式
    With connectorLine.Line
        .EndArrowheadStyle = msoArrowheadTriangle ' 箭头样式（可选其他形状）
        .EndArrowheadWidth = msoArrowheadWidthMedium ' 箭头宽度
        .Weight = 1.5 ' 线宽，可选调整
        .ForeColor.RGB = RGB(0, 0, 0) ' 线条颜色，黑色
    End With
End Sub

关键细节说明 #

• 组合形状的引用：组合后的形状就是一个独立的Shape对象，你可以像操作普通形状一样获取它、移动它、连接它，只有需要修改组内单个形状时才需要用GroupItems。
• 连接点的选择：大部分形状的ConnectionSite:=0就是中心位置，如果发现连接点不对，可以打开Excel的「开发工具」→「查看代码」→「立即窗口」，输入?leftMilestoneGroup.ConnectionSiteCount查看该形状的连接点总数，然后逐个测试编号（从0开始）。
• 箭头样式调整：msoArrowheadTriangle是三角形箭头，还有msoArrowheadOval（椭圆形）、msoArrowheadDiamond（菱形）等可选；宽度也可以选msoArrowheadWidthNarrow或msoArrowheadWidthWide。

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