Shapes.BuildFreeform 方法 (Excel)

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

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

语法

表达式BuildFreeform (EditingTypeX1Y1)

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 支持和反馈,获取有关如何接收支持和提供反馈的指南。