VBA 選択範囲に矢印を挿入する

選択範囲に矢印を挿入する

Sub makeArrow()

Dim r As Range
Set r = Selection

With ActiveSheet.Shapes.AddLine(r.Left, r.Top + r.Height / 2, r.Left + r.Width, r.Top + r.Height / 2).Line
 .ForeColor.RGB = RGB(0, 0, 255)
 .Style = 1
 .BeginArrowheadStyle = 3
 .EndArrowheadStyle = 3
 .Weight = 3
End With

End Sub