Excel工作表中怎么添加图形
时间:2023-03-03 12:30:00
向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 在工作表中插入三角形
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win10系统有哪些快捷键可以用来截图?Win10快捷截图
![](https://img.aspxhome.com/file/2023/2/48902_0s.jpg)
iOS 15 手动更改“人物”相册方法教程
![](https://img.aspxhome.com/file/2023/9/45749_0s.png)
project项目怎么添加大纲数字和关键路径?
![](https://img.aspxhome.com/file/2023/1/15091_0s.jpg)
pdf文件中出现打不开的解决方法
word文档里标点符号会出现在行首的解决办法
![](https://img.aspxhome.com/file/2023/7/19207_0s.jpg)
怎样把QQ截图放在Word文档中
word怎样输入手指符号和表情符号?
![](https://img.aspxhome.com/file/2023/0/19030_0s.jpg)
5大Word排版进阶技巧,快速制作上司看了赞不绝口的版面
![](https://img.aspxhome.com/file/2023/1/17021_0s.gif)
如何在word里,添加可以让用户打勾的方框
![](https://img.aspxhome.com/file/2023/0/35150_0s.png)
如何让你的Word变成电子书
![](https://img.aspxhome.com/file/2023/3/34173_0s.jpg)
Word文档中标尺的使用
苹果 iOS 16 天气应用有哪些新变化?
![](https://img.aspxhome.com/file/2023/5/45195_0s.jpg)
升级iOS 14后还可以降回iOS 13吗?
![](https://img.aspxhome.com/file/2023/0/a194530_0s.png)
win10系统声音被禁用如何恢复?
![](https://img.aspxhome.com/file/2023/4/46904_0s.jpg)
介绍如何在word中为文字添加上划线的方法
word 默认字体是什么
![](https://img.aspxhome.com/file/2023/8/33238_0s.png)
Word没有页面栏
![](https://img.aspxhome.com/file/2023/4/31984_0s.png)
Word 2007无法输入中文怎么解决?Word 2007无法输入中文解决方法
![](https://img.aspxhome.com/file/2023/0/31470_0s.jpg)