FreeformBuilder.ConvertToShape 方法 (Publisher)

會建立具有指定之 FreeformBuilder 物件的幾何特性的圖形。 會傳回代表新圖案的 Shape 物件。

語法

運算式。ConvertToShape

表達 代表 FreeformBuilder 物件的 變數。

傳回值

圖形

註解

您必須先將 AddNodes 方法套用至 FreeformBuilder 物件至少一次，才能使用 ConvertToShape 方法，否則會發生錯誤。

範例

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

' 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 支援與意見反應。