Shapes.BuildFreeform 方法 (Excel)

建立任意多边形对象。 返回一个 FreeformBuilder 对象，该对象表示正在建立的任意多边形。

使用 AddNodes 方法添加到任意多边形的线段。 向任意多边形添加至少一个段后，可以使用 ConvertToShape 方法将 FreeformBuilder 对象转换为 Shape 对象，该对象具有你在 FreeformBuilder 对象中定义的几何说明。

语法

表达式。BuildFreeform (EditingType、 X1、 Y1)

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
EditingType	必需	MsoEditingType	第一个节点的编辑属性。
X1	必需	Single	自由多边形绘图中第一个节点相对于文档左上角的位置 (以 磅) 为单位。
Y1	必需	Single	任意图形中第一个节点相对于文档左上角的位置（以磅为单位）。

返回值

FreeformBuilder

示例

本示例将一个有五个顶点的任意多边形添加到 myDocument 中。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。