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

the ConnectorFormat object returned by the ConnectorFormat propertyを利用し、BeginConnectedShapeとEndConnectedShapeのプロパティを調べるのが最善の策です。