Shapes.BuildFreeform メソッド (Word)

  • [アーティクル]

フリーフォーム オブジェクトを作成します。

構文

expression. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )

expression 必須です。 Shapes オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
EditingType 必須 MsoEditingType 最初の節点の編集プロパティを指定します。
X1 必須 単精度浮動小数点型 (Single) フリーフォームの最初の節点の位置を、文書の左端からのポイント数で指定します。
Y1 必須 単精度浮動小数点型 (Single) フリーフォームの最初の節点の位置を、文書の上端からのポイント数で指定します。

戻り値

FreeformBuilder

注釈

フリー フォームにセグメントを追加するのには、 AddNodes メソッドを使用します。 フリー フォームに 1 つ以上のセグメントを追加した後は、 FreeformBuilder オブジェクトで定義されている幾何学的特徴を持つ Shape オブジェクトに FreeformBuilder オブジェクトを変換するのには、 ConvertToShape メソッドを使用できます。

例

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

Dim docActive As Document 
 
Set docActive = ActiveDocument 


With docActive.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
 .AddNodes msoSegmentCurve, msoEditingCorner, _ 
 380, 230, 400, 250, 450, 300 
 .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 
 .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 
 .AddNodes msoSegmentLine, msoEditingAuto, 360, 200 
 .ConvertToShape 
End With

関連項目

Shapes コレクション オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。