■Shapeをカギ線コネクタでつないでみる - 半角チルダ

oshiete1.goo.ne.jp の『このQ&Aについてブログを書く』ってやつをちょっとやってみたかっただけなの ：D マクロの登録を使って、オートシェイプどうしをカギ線矢印コネクタでつなぐ - 教えて！goo ちょっと前のQ&Aで、Rectangle に OnAction でマクロ登録してコネクタで繋ぐというやつです。 Option Explicit Sub prep() 'テストシート作成 Dim i As Long With Sheets.Add For i = 1 To 4 With .Rectangles.Add(i * 50, i * 30, 30, 10) .Interior.Color = vbBlue .OnAction = "try" End With Next End With End Sub '----------------------------------