Excel工作表中怎么添加图形

　　向Excel工作表中手动插入图形对象是十分方便的，如果需要向工作表中插入大量图形，或是对绘制的图形对象大小和位置有很准确的要求，用手工绘制的方法就不太方便了。此时可以通过VBA程序来进行图形对象的绘制。本文以在工作表中绘制一个三角形为例来介绍向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　在工作表中插入三角形

赞 (0)

相关推荐

  • 在excel工作表中怎么添加折线图?

    我们在excel工作表的处理过程中,经常会需要把一些数据用图表的形式表现出来,使得数据更加直观明了.在excel工作表中添加折线图,方便易操作,能够使得数据呈现方式简洁明了.那么在excel工作表中怎 ...

  • Excel工作表中怎么插入分类汇总

      Excel工作表中怎么插入分类汇总 1.打开需要创建分类汇总的工作表,选择"员工部门"所在的列后在"数据"选项卡的"排序和筛选"组中单击 ...

  • EXCEL2007工作表中如何添加背景图片?EXCEL2007设置背景的方法

    EXCEL2007工作表中如何添加背景图片?在excel中,我们使用的工作表的背景颜色一直都是白色的,但是我们可以通过设置背景效果,将工作表美化.那么,你知道如何在EXCEL2007工作表中添加背景吗 ...

  • excel工作表中怎样按姓名字母排序

    在工作收录名单的时候经常会遇到"请按照姓氏字母排序"这样的要求,excel工作表中怎样按姓名字母排序? 操作方法 01 打开excel 2007 02 输入我们要排序人的姓名 03 ...

  • 用公式查找Excel工作表中重复数据

    前不久，一位网友求教，要求找出Excel工作表中的重复数据并在单元格中列出。我给出了一个数组公式供参考，但不是太符合要求，因为这个数组公式虽然找出了重复数据，但是如果将数组公式向下复制时超出了出现重复 ...

  • 批量查找替换多个Excel工作表中数据的方法

    批量查找替换多个Excel工作表中数据的方法

    批量查找替换多个Excel工作表中数据的设置步骤 例子:如何将表格"1月"."2月"."3月"中的"总务部"批量替换成& ...

  • Excel工作表中快速跳转单元格的快捷键一览

    Excel工作表中快速跳转单元格的快捷键一览 在Excel工作表中,可以使用如下的快捷键快速跳转单元格: (1)按组合键Ctrl+Home:可以快速跳转到工作表的第1个单元格; (2)按组合键Ctrl ...

  • Excel工作表中使用模拟运算表的方法

    Excel工作表中使用模拟运算表的方法 1.创建一个新的Excel工作表,并在工作表输入数据.在B9单元格中输入提成金额的计算公式"=$B$2*$B$3",如图1所示. 图1 创建 ...

  • Excel工作表中隔行插入空白行的方法

    Excel工作表中隔行插入空白行的方法 1.在工作表的数据区域外的一个列的开始单元格中输入数字"1"和"2",如图1所示.同时选择这2个单元格,将鼠标指针放置到 ...