ConvertToShape 方法

创建图形，该图形将具有指定的 FreeformBuilder 对象的几何特性。返回 Shape 对象，该对象代表新建的图形。

注意   在使用 ConvertToShape 方法之前，必须向 FreeformBuilder 对象至少应用一次 AddNodes 方法。

expression  必需。该表达式返回一个 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