|
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 就是箭头的英文翻译。
弄明白上面的内容，看一下代码就很容易理解了。 代码 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 线条的主要设置就是这样一些内容，当然还有背景颜色和灰度值的一些相关属性，在使用的时候可以进行一下设置学习。 |
|
|
