VBA编程，如何设置线条和箭头格式_excel

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对象，其下属性有如下表格：
LineFormat 属性
Application
BackColor
BeginArrowheadLength
BeginArrowheadStyle
BeginArrowheadWidth
Creator
DashStyle
EndArrowheadLength
EndArrowheadStyle
EndArrowheadWidth
ForeColor
InsetPen
Parent
Pattern
Style
Transparency
Visible
Weight
设置不同的属性可对线条样式有一些特别的呈现。
【VBA编程，如何设置线条和箭头格式】其中用到一些枚举类型，这些枚举的值是已经预置完成的，只要按不同的值或名称进行设置就可以，其实没有特别的困难，唯一困难的是考验英语能力，就是这么简单。
直线样式

线条样式示例：
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 LongTx = Range("C4").ValueTe = Range("E4").ValueEx = Range("G4").ValueEe = Range("I4").ValuexColor = Range("O4").Interior.ColorSet 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---

VBA编程，如何设置线条和箭头格式

相关经验推荐