FreeformBuilder.AddNodes 方法 (Publisher)

會插入新的線段的手繪多邊形結尾要建立並加入定義此線段的節點。

使用此方法的次數與您想要將節點新增至您要建立之手繪多邊形的次數一樣多。 當您完成新增節點時，請使用 ConvertToShape 方法來建立您剛才定義的手繪多邊形。

語法

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

表達 代表 FreeformBuilder 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
SegmentType	必要	MsoSegmentType	要加入的線段類型。 可以是 msoSegmentCurve 或 msoSegmentLine。
EditingType	必要	MsoEditingType	新節點的編輯類型。 可以是 msoEditingAuto 或 msoEditingCorner。 如果 SegmentType 是 msoSegmentLine，則 EditingType 必須是 msoEditingAuto;否則會發生錯誤。
X1	必要	Variant	如果新線段的 EditingType 是 msoEditingAuto，這個引數會指定從頁面左上角到新線段端點的水準距離。 如果新節點的 EditingType 是 msoEditingCorner，這個引數會指定從頁面左上角到新線段第一個控制點的水準距離。
Y1	必要	Variant	如果新線段的 EditingType 是 msoEditingAuto，這個引數會指定從頁面左上角到新線段端點的垂直距離。 如果新節點的 EditingType 是 msoEditingCorner，這個引數會指定從頁面左上角到新線段第一個控制點的垂直距離。
X2	選用	Variant	如果新線段的 EditingType 是 msoEditingCorner，這個引數會指定從頁面左上角到新線段第二個控制點的水準距離。 如果新區段的 EditingType 是 msoEditingAuto，請勿為此引數指定值。
Y2	選用	Variant	如果新線段的 EditingType 是 msoEditingCorner，這個引數會指定從頁面左上角到新線段第二個控制點的垂直距離。 如果新區段的 EditingType 是 msoEditingAuto，請勿為此引數指定值。
X3	選用	Variant	如果新線段的 EditingType 是 msoEditingCorner，這個引數會指定從頁面左上角到新線段端點的水準距離。 如果新區段的 EditingType 是 msoEditingAuto，請勿為此引數指定值。
Y3	選用	Variant	如果新線段的 EditingType 是 msoEditingAuto，這個引數會指定從頁面左上角到新線段端點的垂直距離。 如果新線段的 EditingType 為 msoEditingAuto，則請勿指定此引數的值。

註解

針對X1、Y1、X2、Y2、X3 和 Y3自變量，數值會以點為單位進行評估;字串可以是 Microsoft Publisher (支援的任何單位，例如「2.5 in」) 。

若要在建立手繪多邊形之後將節點新增至手繪多邊形，請使用ShapeNodes集合的Insert方法。

範例

本範例會使用四個頂點新增手繪多形到使用中的出版物。

' Add a new freeform object. 
With ActiveDocument.Pages(1).Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
End With 

支援和意見反應

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