Excel工作表中如何插入添加图形

向Excel工作表中手动插入图形对象是十分方便的，如果需要向工作表中插入大量图形，或是对绘制的图形对象大小和位置有很准确的要求，用手工绘制的方法就不太方便了。以下是我为您带来的关于Excel工作表中添加图形的方法，希望对您有所帮助。

Excel工作表中添加图形的方法

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　在工作表中插入三角形

猜你喜欢：

1. 为Excel2010设置纸张大小的方法是什么

2. Excel2010表格如何设置单元格边框

3. excel表格点击加号展开功能的创建教程

4. excel2010图形模板怎么使用

5. excel添加自选图形的教程

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　在工作表中插入三角形

Excel 中经常需要使用到绘图功能绘制图表，图表具体该如何利用绘图功能绘制呢?下面是由我分享的excel表格内绘图的 方法 ，以供大家阅读和学习。

excel表格内绘图方法：

绘图步骤1：打开一个excel表格，点击插入，如图：

绘图步骤2：打开后你会看到各种形状的图形，你想用哪种图来表示就点哪个。如图

绘图步骤3：找到你想要统计绘图的数据，用鼠标选定，如图，

绘图步骤4：点击你想用的图的形状，如图

绘图步骤5：点击下拉菜单中的图形形状，这样很容易就会画出你的数据图形了。如图

绘图步骤6：这只是以一种图形为例， 其它 的一样，这里就不再一一介绍了希望对大家有点作用。如图想删除这个图形只要点击鼠标的右键就会看到以下图形。 再点击删除就可以了。

绘图步骤7：也可以在原图表上更改图形的形状，点击鼠标右键，如图：点击键头所指的地方，

---