VBA 获取连接器 'from shape' 和 'to shape'

Question

我在 Excel 中有一个流程设计(使用形状、连接器等)。
我需要的是有一个矩阵，每个形状都有所有的前辈和所有的后继者。
在 VBA 中，为此我正在尝试执行以下操作:
- 我列出了所有的连接器(Shapes.AutoShapeType = -2)
- 对于每个我想要的形状“from”的名称和形状“to”的名称。

我希望你能明白。
我没有找到连接器的属性来检索此信息。

这是我到目前为止:

Sub getTransitions()
    ''the sheet with the design
    Set designSheet = Sheets("DesignSheet")
    Set tempSheet = Sheets("temp") 'Sheets.Add

    lLoop = 0

    'Loop through all shapes on active sheet
    For Each sShapes In designSheet.Shapes

        'Increment Variable lLoop for row numbers
        With sShapes

           ''connector shape type
           If ((sShapes.AutoShapeType) = -2) Then
                lLoop = lLoop + 1
                tempSheet.Cells(lLoop + 1, 1) = sShapes.Name
                tempSheet.Cells(lLoop + 1, 2) = sShapes.AutoShapeType

               ''here I want to have for the sShapes the from shape and the to shape


            End If



        End With

     Next sShapes
End Sub

有谁知道获得这些信息的形状参数？

Answer 1

似乎利用 the ConnectorFormat object returned by the ConnectorFormat property并查看 BeginConnectedShape 和 EndConnectedShape 属性可能是你最好的选择。