问与答111：如何使用VBA画直线？

引言：今天的问题整理自mrexcel.com论坛，不难但可能会有部分人会感兴趣。

Q：我怎样使用VBA代码在两个单元格之间绘制一条直线？一个单元格命名为“start”，另一个单元格命名为“stop”，我想绘制一条红色的直线连接它们。如下图1所示。

图1

A：很简单的代码。

先确定直线的起点和终点坐标，再绘制直接并添加颜色。代码如下：

Sub AddLine()

Dim l1 As Long

Dim l2 As Long

Dim r1 As Long

Dim r2 As Long

With ActiveSheet.Range("start")

l1 = .Left

l2 = .Top

End With

With ActiveSheet.Range("stop")

r1 = .Left

r2 = .Top

End With

With ActiveSheet.Shapes.AddLine(l1, l2, r1,r2).Line

.ForeColor.RGB = RGB(255, 0, 0)

End With

End Sub

如果直线的起点在单元格start的左下角，如下图2所示。

图2

可以使用下面的代码：

Sub AddLine1()

Dim l1 As Long

Dim l2 As Long

Dim r1 As Long

Dim r2 As Long

With ActiveSheet.Range("start")

l1 = .Left

l2 = .Top + .RowHeight

End With

With ActiveSheet.Range("stop")

r1 = .Left

r2 = .Top

End With

With ActiveSheet.Shapes.AddLine(l1, l2, r1,r2).Line

.ForeColor.RGB = RGB(255, 0, 0)

End With

End Sub

如果直线的起点在单元格start的右下角，如下图3所示。

图3

可以使用下面的代码：

Sub AddLine2()

Dim l1 As Long

Dim l2 As Long

Dim r1 As Long

Dim r2 As Long

With ActiveSheet.Range("start")

l1 = .Left + .ColumnWidth * 6.5

l2 = .Top + .RowHeight

End With

With ActiveSheet.Range("stop")

r1 = .Left

r2 = .Top

End With

With ActiveSheet.Shapes.AddLine(l1, l2, r1,r2).Line

.ForeColor.RGB = RGB(255, 0, 0)

End With

End Sub

可以调整代码中的数值“6.5”，以确定合适的起点位置。