Shapes.BuildFreeform 方法 (Publisher)

會建立手繪多邊形物件。 會傳回 FreeformBuilder 物件，該物件代表正在建立的手繪多邊形。

語法

運算式。BuildFreeform (EditingType， X1， Y1)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
EditingType	必要	MsoEditingType	指定第一個節點的編輯類型。 可以是 Microsoft Office 類型程式庫中所宣告的 MsoEditingType 常 數之一。
X1	必要	Variant	相對於文件的左上角，手繪多邊形第一個節點的水平位置。
Y1	必要	Variant	相對於文件的左上角，手繪多邊形第一個節點的垂直位置。

傳回值

FreeformBuilder

範例

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

使用 AddNodes 方法可將區段新增至手繪多邊形。 將至少一個線段新增至手繪多邊形之後，您可以使用 ConvertToShape 方法，將 FreeformBuilder 物件轉換成 Shape 物件，該物件具有您在 FreeformBuilder 物件中定義的幾何描述。

' Add a new freeform object. 
With ActiveDocument.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 支援與意見反應。