複数のオートシェイプを矢印(コネクタ)で繋ぎたい。 最初にクリックした(選択した)シェイプから、他のシェイプへ向けて放射線状にコネクタを繋げたい。 線を引けたところで、最短経路で線を引く(シェイプのどこから矢印が伸びるのかを自動化する)のは諦めてた。お互いの位置を計算してなんてきつすぎる!四角なら上下左右4ポイントだけど丸だと何ポイントあるんだ! と思ったら、まさかの .RerouteConnections 一発でできた。やるじゃんMS!! このマクロは超ベンリなんじゃないか?! Sub オートシェイプをコネクタで繋ぐ() With ActiveWorkbook.ActiveSheet On eroor GoTo ERR1 個数 = Selection.ShapeRange.Count 'まず選択中のシェイプを選択した順に取得(何もしなくても選択順になる) 'コネクタを作っていく開始 Fo