vba设置鼠标形状（如何设置线条和箭头格式）

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 就是箭头的英文翻译。

1. 返回或设置指定的直线终点处的箭头样式，EndArrowheadStyle
2. 返回或设置指定线条末端的箭头宽度，EndArrowheadWidth
3. 返回或设置指定线条末端的箭头长度，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---