ConvertToShape 方法

创建一个具有指定 FreeformBuilder 对象的几何特性的形状。返回一个代表新形状的 Shape 对象。

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

expression  必选。该表达式返回一个 FreeformBuilder 对象。

示例

本示例向当前演示文稿的第一张幻灯片中添加一个具有五个顶点的任意多边形。

Set myDocument = ActivePresentation.Slides(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