如何用vba在excel工作表中插入圆？

您所在的位置：网站首页 › 如何在excel里画圆半圆曲线图形画法视频 › 如何用vba在excel工作表中插入圆？

如何用vba在excel工作表中插入圆？

2024-07-10 02:13| 来源: 网络整理| 查看: 265

如何用vba在excel工作表中插入圆？ 2018年9月6日作者：水星Excel 5,594 次浏览暂无评论

在如何在excel中插入圆形？一文中，我们介绍了如何通过操作插入一个圆形。

在vba中可以用Shapes集合对象的AddShape方法插入图形。

AddShape方法的语法如下：

expression. AddShape( _Type_ , _Left_ , _Top_ , _Width_ , _Height_ )

其中Type参数表示要插入的图形的类型，具体的参数值可以见图形类型。

比如以下的代码将在工作表中插入一个圆形：

Sub QQ1722187970() Dim oSP As Shape Dim oWK As Worksheet Set oWK = Excel.ActiveSheet '插入一个半径为25Point的圆 Set oSP = oWK.Shapes.AddShape(msoShapeOval, 100, 100, 50, 50) End Sub

其中msoShapeOval表示插入一个椭圆，将AddShape方法的Width和Height属性设置为相同的值，既可以变成插入圆形。

其它相关文章推荐：如何用vba在excel工作表中插入半圆？如何用vba在excel工作表中插入同心不同半径的圆或者半圆？如何用vba根据ppt幻灯片中的已有图形插入生成一个N×M的相同图形？如何用vba给ppt幻灯片中插入同尺寸大小的图形？如何用vba在excel工作表中添加直线？如何用vba创建工作表目录以及返回目录超链接？分类 : VBA , 图表、图形标签 : AddShape , msoShapeOval , 圆

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

如何用vba在excel工作表中插入圆？

如何用vba在excel工作表中插入圆？

今日新闻

推荐新闻