通过

Shapes.BuildFreeform 方法 (PowerPoint)

  • 项目

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

语法

expression。 BuildFreeform( _EditingType_, _X1_, _Y1_ )

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

参数

名称 必需/可选 数据类型 说明
EditingType 必需 MsoEditingType 第一个节点的编辑属性。
X1 必需 Single 任意多边形第一个节点相对于幻灯片左边缘的水平位置（以磅为单位）。
Y1 必需 Single 任意多边形第一个节点相对于幻灯片上边缘的垂直位置（以磅为单位）。

返回值

FreeformBuilder

备注

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

示例

本示例向 myDocument 中添加带有四条线段的任意多边形。

    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
    X1:=360, Y1:=200) 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
            X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=200 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=400 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=360, Y1:=200 
        .ConvertToShape 
    End With

另请参阅

支持和反馈

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