Hab mir die Datei mal angesehen:

'Elbow Connector 20'                   msoAutoShapeConnector {Begin: Falsch; End: Falsch}
'Elbow Connector 22'                   msoAutoShapeConnector {Begin: Falsch; End: Falsch}
'Elbow Connector 24'                   msoAutoShapeConnector {Begin: Falsch; End: Falsch}
'Elbow Connector 26'                   msoAutoShapeConnector {Begin: Falsch; End: Falsch}
'Elbow Connector 28'                   msoAutoShapeConnector {Begin: Falsch; End: Falsch}
'Elbow Connector 30'                   msoAutoShapeConnector {Begin: Falsch; End: Falsch}
'Elbow Connector 234'                  msoAutoShapeConnector {Begin: Falsch; End: Falsch}

Diesen Verbindungen ist lt. dem ShapeObjekt weder ein Anfang noch Ende zugewiesen - warum auch immer. Es handelt sich dabei um die Verbindungungen ausgehend von "Financial". Darum rennt die Hilfsfunktion auch manchmal in einen Laufzeitfehler. :>

Damit das nicht mehr passiert - angepasst.

Public Function GetShapeConnectors(Shape As Excel.Shape) As VBA.Collection
  
  Dim shp As Excel.Shape
  Dim shpChild As Excel.Shape
  
  Set GetShapeConnectors = New VBA.Collection
  
  For Each shp In Shape.Parent.Shapes
    If shp.Connector Then
      With shp.ConnectorFormat
        If Shape.Type <> msoGroup Then
          If .BeginConnected Then
            If .BeginConnectedShape Is Shape Then
              Call GetShapeConnectors.Add(shp)
            End If
          ElseIf .EndConnected Then
            If .EndConnectedShape Is Shape Then
              Call GetShapeConnectors.Add(shp)
            End If
          End If
        Else
          For Each shpChild In Shape.GroupItems
            If .BeginConnected Then
              If .BeginConnectedShape Is shpChild Then
                Call GetShapeConnectors.Add(shp)
              End If
            ElseIf .EndConnected Then
              If .EndConnectedShape Is shpChild Then
                Call GetShapeConnectors.Add(shp)
              End If
            End If
          Next
        End If
      End With
    End If
  Next
  
End Function