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

mqh1987

比如，我想连接B5和P7，C9和G4，类似这种连接方式画多条射线，通过单元格中心点连接的射线，实际运用不会那么短距离，也许是隔200列-300列之后的某个点。最好能有某个地方可以打2个单元格的坐标，多谢。

2007版本的EXCEL，因为列数可以比03多很多，03的列数不够用，所以只能发07版的附件了。

一直手动无限延长眼睛很花，还容易有误差。

注，是射线哦，左边起点，右边延长的。

[ 本帖最后由 mqh1987 于 2009-10-30 12:11 编辑 ]

mqh1987

搜索查下来都是3D彩票的那种

amolin

没看附件，但我想用ＶＢＡ能够实现，建议楼主存成２００３。这样会有更多人帮你。

mqh1987

2003的列不够用，所以只能被迫用2007的了

mqh1987

等待回复。。。。

mqh1987

为什么没人回复呢。。。

mqh1987

要经过单元格中心，2个单元格的中心相互连接的射线，搜索中没有此种例子，请大家帮忙下啦。。。

heitong

顶起   我也需要这个  谢谢哪位达人帮忙做个例子

coby001

原帖由 mqh1987 于 2009-10-30 11:24 发表
要经过单元格中心，2个单元格的中心相互连接的射线，搜索中没有此种例子，请大家帮忙下啦。。。

单元格中心坐标 计算方法：
X = Cell.Left + cell.width / 2
Y = cell.top + cell.height / 2

------------------------------------------------------------------
Top 属性应用于 Range 对象的 Top 属性。
从第一行顶端到该区域顶端的距离。如果该区域不连续，则使用第一个区域。如果该区域有若干行，则使用区域中的顶端行（行号最小的行）。Variant 类型，只读。
expression.Top
expression      必需。该表达式返回一个 Range 对象。

coby001

Sub coBY001_()
‘ 从 C5 的中心向 F9 的中心 画一条射线
    Dim x1 As Single, x2 As Single, y1 As Single, y2 As Single
    x1 = [c5].Left + [c5].Width / 2
    y1 = [c5].Top + [c5].Height / 2
    x2 = [f9].Left + [f9].Width / 2
    y2 = [f9].Top + [f9].Height / 2
    With ActiveSheet.Shapes.AddLine(x1, y1, x2, y2).Line  ’ 下面的属性决定直线的样式和外观，可以自己选择
        .DashStyle = msoLineDashDotDot
        .ForeColor.RGB = RGB(50, 0, 128)
        .BeginArrowheadLength = msoArrowheadShort
        .BeginArrowheadStyle = msoArrowheadOval
        .BeginArrowheadWidth = msoArrowheadNarrow
        .EndArrowheadLength = msoArrowheadLong
        .EndArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadWidth = msoArrowheadWide
    End With

End Sub

[ 本帖最后由 coby001 于 2009-11-9 10:12 编辑 ]