VBA Excel中绘制箭头

With ActiveSheet.Shapes.AddLine(Cells(2, 3).Left, Cells(2, 3).Top, Cells(4, 5).Left, Cells(4, 5).Top)
    .Line.EndArrowheadStyle = msoArrowheadTriangle
    .Line.EndArrowheadLength = msoArrowheadLengthMedium
    .Line.EndArrowheadWidth = msoArrowheadWidthMedium
    .Line.ForeColor.RGB = RGB(32, 128, 64)
End With

 效果如下，

参数格式：AddLine（x1,y1,x2,y2）