VBA(Excel)コネクタとオートシェイプを繋げる

Question

お世話になっております。

Excelで分類よって雛形を変えて、フローチャートを自動作成するツールを考えております。

その中で、オートシェイプを追加した際に、任意の位置へ矢印(コネクタ)を繋げたいため

似たような手法あれば教えていただければと思います。

宜しくお願い致します。

Answer 1

   

 Sheet1のShapes(6)がコネクターであり、かつ、始点がどれかの図形に接続済みの場合に

新しく追加した図形（下記の場合はひし形）のコネクトサイト２番（左の角）にコネクターの終点を接続します・

   Sheet1.Shapes(6).ConnectorFormat.EndConnect Sheet1.Shapes.AddShape(msoShapeDiamond, 100, 300, 100, 50), 2