excel如何引线

在EXCEL里画线，通常有两类，即手工画线和VBA画线。

一、手工画线

第一步：点击插入-形状。如图：

第二步：选择起始点拖动鼠标到终点。就完成了画线。如图：

另外根据需要可以设置线条的颜色、粗细等。

二、VBA画线。利用VBA画线，基本要点也是要告知线条的起点及终点。下面提供一段代码供参考。该程序主要目的是根据单元格内容进行匹配画线。代码如下：

Sub HT()

Dim arra1(1 To 5) As String

Dim arrb1(1 To 5) As String

Dim arra2(1 To 5, 1 To 2)

Dim arrb2(1 To 5, 1 To 2)

Dim I, J, K As Integer

Dim m_s As String

Dim x1, y1, x2, y2 As Double

Const ksh = 11 '从第11行开始写入

For I = 1 To 5

arra1(I) = Cells(I, 1)

arrb1(I) = Cells(I, 2)

Next I

For I = 1 To 5

arra2(I, 1) = Left(m_s, 1)

arra2(I, 1) = Left(arra1(I), 1)

arra2(I, 2) = Right(arra1(I), 1)

arrb2(I, 1) = Left(arrb1(I), 1)

arrb2(I, 2) = Right(arrb1(I), 1)

Next I

For I = 1 To 5

Cells(ksh + I - 1, 1) = arra1(I)

Cells(ksh + I - 1, 3) = arrb1(I)

Next I

'开始划线

For I = 1 To 5

  For J = 1 To 5

     If arra2(I, 2) = arrb2(J, 2) Then

      GoTo 100

     End If

  Next J

'100 x1 = Cells(ksh + I - 1, 1).Right

'100  ActiveSheet.Shapes.AddLine Cells(ksh + I - 1, 1).Right, Cells(ksh + I - 1, 1).Top, Cells(ksh + J - 1, 3).Left, Cells(ksh + J - 1, 3).Top

100    ActiveSheet.Shapes.AddLine Cells(ksh + I - 1, 2).Left, Cells(ksh + I - 1, 2).Top, Cells(ksh + J - 1, 3).Left, Cells(ksh + J - 1, 3).Top

Next I

'mYs = Worksheets(1)

End Sub

画线效果如图：

在Excel中，有一个名为“设置引线行格式”的对话框，您可以在其中格式化引线。

1.单击引线，然后单击鼠标右键以选择 设置领导线 在上下文菜单中。

2.然后在d出 设置领导线 对话框/窗格中，您可以在 彩色线 部分，并检查 实线 然后从中选择所需的颜色 颜色 清单。

3.您还可以通过更改线条样式或发光和柔和边缘来更改引出线格式。

在Excel中，引出线默认情况下为黑色（在Excel 2013中为灰色），有些人可能想要更改引出线的颜色或更改引出线的格式，现在您可以阅读本教程来设置引出线格式在Excel中的行。

---