PowerPoint) (FreeformBuilder.AddNodes 方法

會插入新的線段的手繪多邊形結尾要建立並加入定義此線段的節點。 使用此方法的次數與您想要將節點新增至您要建立之手繪多邊形的次數一樣多。 當您完成新增節點時使用 ConvertToShape 方法建立手繪多邊形您已經定義。 若要新增節點的手繪多邊形已建立之後，使用 ShapeNodes 集合的 Insert 方法。

語法

運算式。AddNodes (SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)

參數

名稱	必要/選用	資料類型	描述
SegmentType	必要	MsoSegmentType	要加入的線段類型。
EditingType	必要	MsoEditingType	頂點的編輯屬性。 如果 msoSegmentLine SegmentType，EditingType 必須是 msoEditingAuto 。
X1	必要	Single	如果新的線段的 EditingType 是 msoEditingAuto ，這個引數指定的水平距離 (以點為單位) 文件的左上角的新線段端點。 如果新節點 EditingType msoEditingCorner ，這個引數會指定從文件的左上角的水平距離 (以點為單位) 至新的線段的第一個控制點。
Y1	必要	Single	如果新的線段的 EditingType 是 msoEditingAuto ，這個引數指定的垂直距離 (以點為單位) 文件的左上角的新線段端點。 如果新節點 EditingType msoEditingCorner ，則此引數會指定從文件的左上角的垂直距離 (以點為單位) 至新的線段的第一個控制點。
X2	選用	Single	如果新的線段的 EditingType msoEditingCorner ，則此引數會指定從文件的左上角的水平距離 (以點為單位) 至新的線段的第二個控制點。 新的線段的 EditingType 是 msoEditingAuto ，如果未指定此引數的值。
Y2	選用	Single	如果新的線段的 EditingType msoEditingCorner ，則此引數會指定從文件的左上角的垂直距離 (以點為單位) 至新的線段的第二個控制點。 新的線段的 EditingType 是 msoEditingAuto ，如果未指定此引數的值。
X3	選用	Single	如果新的線段的 EditingType msoEditingCorner ，這個引數指定的水平距離 (以點為單位) 文件的左上角的新線段端點。 新的線段的 EditingType 是 msoEditingAuto ，如果未指定此引數的值。
Y3	選用	Single	如果新的線段的 EditingType msoEditingCorner ，則此引數會指定從文件的左上角的垂直距離 (以點為單位) 新的線段的端點。 新的線段的 EditingType 是 msoEditingAuto ，如果未指定此引數的值。

範例

本範例將具有五個頂點的手繪多邊形新增至目前簡報的第一張投影片。

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 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

另請參閱

FreeformBuilder 物件

支援和意見反應

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