【探索】excel VBA的任意坐标画线问题

参考 ： http://club.excelhome.net/thread-438888-1-1.html

效果

代码

Sub test()
Dim r1 As Range, r2 As Range, x!, y!, m!, n!
Set r1 = Range("b9"): Set r2 = Range("f6")
x = r1.Left: y = r1.Top: m = r2.Left: n = r2.Top
Set l = ActiveSheet.Shapes.AddLine(x, y, m, n) '线的几个坐标
l.Line.ForeColor.SchemeColor = 12 '线条色
End Sub

---------------------------------------------------------------

发现一个问题就是它的坐标原点是在交点上的，如何到格子的中间？呢

可以直接加上数字，表示移动的像素