Shapes.BuildFreeform メソッド (Excel)

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

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

構文

式。BuildFreeform (EditingType, X1, Y1)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前	必須 / オプション	データ型	説明
EditingType	必須	MsoEditingType	最初の節点の編集プロパティを指定します。
X1	必須	Single	フリーフォーム図面の最初のノードの位置 ( ポイント単位) を、ドキュメントの左上隅に対して相対的に指定します。
Y1	必須	単精度浮動小数点型 (Single)	文書の左上隅を基準にフリーフォームの最初の節点の位置をポイント単位で指定します。

戻り値

FreeformBuilder

例

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

Set myDocument = Worksheets(1) 
With myDocument.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

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

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