選択範囲に矢印を挿入する
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