FreeformBuilder 对象 - Microsoft Excel Visual Basic 2002 参考

返回介绍

FreeformBuilder 对象

发布于 2019-08-07 字数 915 浏览 940 评论 0

Shapes (Shape)

FreeformBuilder

代表任意多边形创建时的几何属性。


FreeformBuilder 对象的用法


使用 BuildFreeform 方法可返回一个 FreeformBuilder 对象。使用 AddNodes 方法可向任意多边形中添加站点。使用 ConvertToShape 方法可创建 FreeformBuilder 对象中定义的图形并将它加入到 Shapes 集合中。下例向 myDocument 中添加一个包含4段的任意多边形。


Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!