PowerPoint) (Shapes.BuildFreeform 方法

會建立手繪多邊形物件。 會傳回 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

另請參閱

• Shapes 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。