ＥＸＣＥＬ 範囲指定後矢印線を引くマクロの作り方

こんにちは。 選択範囲の始点列中央から終点列中央へ、 選択範囲の縦中央を通り、始点が白丸の矢印を作成します。 ○の直径は、選択範囲の第１行の高さに係数を掛けています。 その他 細かい点は、「マクロの記録」を参考にご自分でカスタマイズしてください。 またマクロの登録方法もお任せします。 Sub Macro1() Dim rRng As Range Dim X(1) As Single Dim Y As Single Dim D As Single Dim shpRef(1) As Shape Dim iColor As Long Dim i As Long On Error Resume Next Set rRng = Selection If Err Then Exit Sub On Error GoTo 0 iColor = 8 '色 With rRng With .Rows(1) D