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

导读Excel中用到画图功能，也是一个很特别的方面，在于使一个工作表，变成可视化显示很好的界面，呈现出来。本文介绍用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对象，其下属性有如下表格：