2007版中，怎么输入2单元格坐标，连接射线？

coby001

效果图~~~~

tom123

Dim x1, x2, y1, y2 As Single, l
    Dim RangeX, RangeX1 As Range
    On Error Resume Next
    Set RangeX = Application.InputBox("选择单元格：", Type:=8)
    RangeX.Interior.ColorIndex = 15
    Set RangeX1 = Application.InputBox("选择单元格：", Type:=8)
    RangeX1.Interior.ColorIndex = 15
    x1 = RangeX.Left + RangeX.Width / 2
    y1 = RangeX.Top + RangeX.Height / 2
    x2 = RangeX1.Left + RangeX1.Width / 2
    y2 = RangeX1.Top + RangeX1.Height / 2
    Set l = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
    l.Line.ForeColor.SchemeColor = 12
    Set l = Nothing
    Set RangeX = Nothing
    Set RangeX1 = Nothing

[ 本帖最后由 tom123 于 2009-12-9 20:26 编辑 ]

mqh1987

原帖由 tom123 于 2009-12-9 20:24 发表
Dim x1, x2, y1, y2 As Single, l
    Dim RangeX, RangeX1 As Range
    On Error Resume Next
    Set RangeX = Application.InputBox("选择单元格：", Type:=8)
    RangeX.Interior.ColorIndex = 15
    Se ...

非常感谢，这个是用起来很好，只是一个小问题就是为什么选择的单元格会自动变颜色呢？

dsmch

跟帖学习，做个记号。