次の方法で共有

CanvasShapes.BuildFreeform メソッド (Word)

  • [アーティクル]

フリーフォーム オブジェクトを作成します。 作成されたフリーフォームを表す FreeformBuilder オブジェクトを返します。 .

構文

expression. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )

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

パラメーター

名前 必須 / オプション データ型 説明
EditingType 必須 MsoEditingType 使用できる EditingType パラメーターは msoEditingAuto または msoEditingCorner のいずれかで、msoEditingSmooth または msoEditingSymmetric は使用できません。
X1 必須 単精度浮動小数点型 (Single) フリーフォームの最初の節点の位置を、文書の左端からのポイント数で指定します。
Y1 必須 Single フリーフォームの最初の節点の位置を、文書の上端からのポイント数で指定します。

注釈

フリー フォームにセグメントを追加するのには、 AddNodes メソッドを使用します。 フリーフォームに少なくとも 1 つのセグメントを追加したら、 ConvertToShape メソッドを使用して 、FreeformBuilder オブジェクトを、FreeformBuilder オブジェクトで定義した幾何学的な説明を持つ Shapeオブジェクトに 変換できます。

例

次の使用例は、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

関連項目

CanvasShapes コレクション

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

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