Excel中用到画图功能，也是一个很特别的方面，在于使一个工作表，变成可视化显示很好的界面，呈现出来。
本文介绍用VBA代码实现对线条和箭头进行的各种设置方法。
可根据不同的属性对，线条和箭头进行设置，然后在工作表中显示。
如下图所示，利用一些数据设置，绘制出箭头和线条的形状。
要绘制出一个线条首先利用的是Shapes对象的Add方法，如下代码：
ExcelObj.Shapes.AddLine(100, 100, 200, 100)
而Shapes是WorkSheet下的属性，这样解释起来就有点复杂了。
总之流程如下：
WorkSheet对象-Shapes属性-AddLine方法
通过上面的代码就可以在工作表中建立一条直线，然后就是对这条直线进行属性设置。
利用另一个属性来返回一个对象进行设置。
那就是新建直线的Line属性，返回一个LineFormat对象。
示例：
set NewLineFormat=SheetObj.Shapes.AddLine(Tx, Te, Ex, Ee).Line
本文重点就是这个LineFormat对象，其下属性有如下表格：
设置不同的属性可对线条样式有一些特别的呈现。
其中用到一些枚举类型，这些枚举的值是已经预置完成的，只要按不同的值或名称进行设置就可以，其实没有特别的困难，唯一困难的是考验英语能力，就是这么简单。
直线样式
线条样式示例：
NewLineFormat.DashStyle = msoLineDashDotDot
箭头样式
箭头样式示例：
NewLineFormat.BeginArrowheadStyle = msoArrowheadOval
NewLineFormat.BeginArrowheadLength = msoArrowheadShort
其实就是设置线条开始、中间和结尾3个部位的样式。
开始用Begin表示，结尾用End表示，线条用DashStyle。
ArrowHead 就是箭头的英文翻译。
返回或设置指定的直线终点处的箭头样式，EndArrowheadStyle
返回或设置指定线条末端的箭头宽度，EndArrowheadWidth
返回或设置指定线条末端的箭头长度，EndArrowheadLength
弄明白上面的内容，看一下代码就很容易理解了。
代码
Private Sub AddNewLine()
Dim Tx As Long, Te As Long, Ex As Long, Ee As Long
Tx = Range("C4").Value
Te = Range("E4").Value
Ex = Range("G4").Value
Ee = Range("I4").Value
xColor = Range("O4").Interior.Color
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(Tx, Te, Ex, Ee).Line'新建线条
.DashStyle = msoLineDashDotDot'线条样式
.ForeColor.RGB = RGB(50, 0, 128)'线条颜色
.BeginArrowheadLength = msoArrowheadShort'箭头开始长度
.BeginArrowheadStyle = msoArrowheadOval'箭头开始样式
.BeginArrowheadWidth = msoArrowheadNarrow'箭头开始宽度
.EndArrowheadLength = msoArrowheadLong'箭头结尾长度
.EndArrowheadStyle = msoArrowheadTriangle'箭头结尾样式
.EndArrowheadWidth = msoArrowheadWide'箭头结尾宽度
End With
线条的主要设置就是这样一些内容，当然还有背景颜色和灰度值的一些相关属性，在使用的时候可以进行一下设置学习。
欢迎关注、收藏
---END---