可以用多边形工具画，只要起点与终点重合就完成了画形状，画的时候可以使线条重合多次，以完成作图。
1.单击要修改的任意多边形。
将显示“绘图工具”中的“格式”选项卡。
2.单击“插入形慧则闷状”中的（编辑形状）。
3.单击“编辑顶点”。
任意多边形的每个顶点出现黑色小方块。
4.拖动要修改其位置盯梁的顶点的黑色小方块。
随着您移动顶点的黑色小前弯方块，任意多边形的形状也跟着变化。
1、启动Excel并打开Visual Basic编辑器，在工程资源管理器中插入一个模块，在模块的“代码”窗圆丛者口中输入程序代码，如图1所示。具体的程序代码如下所示：
Sub DrawTr()
Dim triArray(1 To 4,1 To 2)As Single
triArray(1,1)=25
triArray(1,2)=100
郑激triArray(2,1)=100
triArray(2,2)=150
triArray(3,1)=150
triArray(3,2)=50
triArray(4,1)=25
triArray(4,2)=100
Worksheets(1).Shapes.AddPolyline triArray
Worksheets(1).Shapes(1).Fill.ForeColor.RGB=RGB(15,100,255)
End Sub
图1 创建模块并输入程序代码
提示
在VBA中，使用Shapes对象的AddPolyline方法能够创建一个不封闭或封闭的多边形，该方法橘薯将能够返回一个代表新的连续线段或多边形的Shape对象。该方法的语法格式如下所示：
表达式AddPolyline(SafeArrayOfPoints)
这里，表达式是一个代表Shapes对象的变量，该方法的SafeArrayOfPoints参数是一个必选参数，其是用于指定多边形顶点的.坐标对所组成的数组，坐标对指的是一对数值，该数值表示点的X和Y坐标。
2、按F5键运行该段程序代码，在Excel工作表中将插入一个蓝色的三角形，如图2所示。
图2 在工作表中插入三角形
●
“填充颜色”按钮
：可以为选定的对象添加、更改、清除填充颜色和填充效果。
●
“线条颜色”按钮
：可以添加、更改或清除选定对象的线条颜色。
●
“字体颜色”按钮
：可以为选定的文字设置颜色。
●
“线型”按钮
：可以更改选定对象的线型和线宽。
●
“虚线线型”按钮
：可以更改选定对象的虚线或虚点线类型。
●
“箭头样式”按钮
：可以更改线条的箭头样式。
●
“阴影”按钮
：可以给绘制的图形设置各种阴影效果。
●
“三维效果”按钮
：可以给绘制的图形设置各种三维效果。
2
、
绘制图形
（
1
）
绘制基本图形
如果要在工作表中绘制直线，请单击“绘图”工具栏中的“直线”按钮，然后
将鼠标移到要绘制的位置，按住鼠标左键拖至结束位置后，松开鼠标左键。
如果要在工作表中绘制箭头，单击“绘图”工具栏中的“箭头”按钮，然后将
鼠标移到要绘制的位置，按住鼠标左键拖至结束位置后，松开鼠标左键。
如果要在工作表中绘制矩形，单击“绘图”工具栏中的“矩形”按钮，然后将
鼠标移到要绘制的位置，按住鼠标左键拖至结束位置后，松开鼠标左键。要绘制正
方形，只需在拖动时按住
Shift
键。
如果要在工作表中绘制椭圆，单击“绘图”工具栏中的“椭圆”按钮，然后将
鼠标移到要绘制的位置，按住鼠标左键拖至结束位置后，松开鼠标左键。要绘肆盯誉制椭
圆，只需在拖动时按住
Shift
键。
图
2
显示了绘制的几个图形对象。
图
2
绘制的简单图形对象
（
2
）
绘制任意多边形
如果要绘制任意多边形，可以按照下述步骤进行：
1
）
单击“绘图”工具栏中的“自选图形”命令，然后指向：
“线条”命令，
出现“线条”子菜单，如图
3
所示。
图
3
“线条”子菜单
2
）
单击“线条”子菜单中的“任意多边形”
。
3
）
根据需要，选择一种绘制方法：
●
要绘制直线，请将鼠标移到起点处单击鼠标左键，再移到其他点处单击鼠
标左键，则两点之间连成一条直线。用同样的方法在其他位置处单击，就
可以绘制一个任意多边形。
●
要绘制自由曲线，请按住鼠标左键随意绘制不规则的曲线。
4
）
要结束图形的绘制并使保持开放状态（起点和终点不重合）
，请双击图裂段
形中任何位置，要完成封闭多边形的绘制，请在起点附近单击。图
4
绘制
任意多边形的示例。
图
4
绘制的任意多边形
（
3
）
绘制自选图形
单击“绘图”工具栏中的“自选图形”按钮，显示自选图形的菜单。该菜单包
含许多类图形，如线条、连接符、基本形状、箭头总汇、流程图、星与旗帜和标注
等。
将鼠标移到
“自选图形”
子菜单上，
然后选择要插入的图形类型，
如图
5
所示。
图
5
选择要绘制的自选图形
将鼠标移到要绘制图形的地方，单击鼠标左键，
Excel
按照默认大小绘
制出图形。
也可以按住鼠标左键并拖动，
即可绘制出指定大小的图形。
如图
6
显示了一些绘制的自选图形。
图
6
绘制的自选图形
（
4
）
绘制文本框
Excel
允许在工作表上的任意地方放置文本框，然后城文本框中输入文本，并可对其中的文
本进行格式化。
如果要绘制文本框，可以按照以下步骤进行：
1)
单击“绘图”工具栏中的“文本框”按钮或者“竖排文本框”按钮。
2)
在要添加文本框的位置单击，
此时插入点出现在文本框中，
指明可以输入文本，
文本框的大小会随着输入文本的增加而增大。
3)
输入结束后，单击文本框之外的单元格。图
7
就是绘制的文本框。
图
7
绘制的文本框
如果要设置文本框中文本的格式，可以按照以下步骤进行：
1
）
单击文本框中的文本，在文本的外围显示文本框。
2
）
双击文本框的边框，出现如图
8
所示的“设置文本框格式”对话框
图
8
“设置文本框格式”对话框
3
）
在
“字体”
标签中可以设置文本框内文本的字体、
字号和字形等；
在
“对
齐”标签中可以设置文本框内文本的旋转方向等。
当然，用户也可以选定文本框中的文本，然后使用“格式”工具栏中的
按钮来更改选定文本的字体和对齐方式等。
（
5
）
在自选图形中添加文本
用户可以在自选图形中添加文本，并且可以设置文本的格式。用鼠标右
键单击自选图形，弹出一个快捷菜单。从快捷菜单中选择“添加文字”命令，
Excel
将在自选图形里面出现插入点，然后输则虚入文本，并可设置文本的格式。
本文转载自互联网，如有侵权，联系删除
