VBA получить разъем «из формы» и «в форму»

Question

У меня есть дизайн потока в Excel (с использованием фигур, соединителей и т. Д.).Мне нужно иметь матрицу, а для каждой фигуры - все предшественники и все преемники.В VBA, чтобы сделать это, я пытаюсь сделать что-то вроде: - Я перечисляю все соединители (Shapes.AutoShapeType = -2) - для каждого я хочу иметь имя фигуры 'from' и имяформы «до».

Я надеюсь, вы поняли идею.Я не нахожу свойства соединителя для извлечения этой информации.

Это то, что я имею до сих пор:

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

Кажется, что использование объекта ConnectorFormat, возвращенного свойством ConnectorFormat , и просмотр свойств BeginConnectedShape и EndConnectedShapeбудь лучшим выбором.