FreeformBuilder.ConvertToShape メソッド (Publisher)

指定した FreeformBuilder オブジェクトの幾何学的特徴を持つ図形を作成します。 新しい図形を表す Shape オブジェクトを返します。

構文

式。ConvertToShape

式FreeformBuilder オブジェクトを表す変数。

戻り値

Shape

注釈

ConvertToShape メソッドを使用する前に、少なくとも 1 回は AddNodes メソッドを FreeformBuilder オブジェクトに適用する必要があります。または、エラーが発生します。

例

次の使用例は、作業中の文書の先頭ページに、4 つの頂点を持つフリーフォームを追加します。

' 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 のサポートおよびフィードバックを参照してください。