FreeformBuilder.AddNodes メソッド (Excel)

現在の図形に点を追加し、現在のノードから最後に追加されたノードに線を描画します。

構文

式。AddNodes (SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)

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

パラメーター

名前	必須 / オプション	データ型	説明
SegmentType	必須	MsoSegmentType	追加するセグメントの種類を指定します。
EditingType	必須	MsoEditingType	頂点の編集の種類を指定します。
X1	必須	Single	新しいセグメントの EditingType が msoEditingAuto の場合、この引数は、ドキュメントの左上隅から新しいセグメントの終点までの水平方向の距離を ポイント単位で指定します。 新しい節点の EditingType が msoEditingCorner の場合、文書の左上隅から新しいセグメントの最初のコントロール ポイントまでの水平距離をポイント単位で指定します。
Y1	必須	Single	新しいセグメントの EditingType が msoEditingAuto の場合、この引数は、ドキュメントの左上隅から新しいセグメントの終点までの水平方向の距離をポイント単位で指定します。 新しい節点の EditingType が msoEditingCorner の場合、文書の左上隅から新しいセグメントの最初のコントロール ポイントまでの水平距離をポイント単位で指定します。
X2	省略可能	バリアント型	新しいセグメントの EditingType が msoEditingCorner の場合、この引数は、ドキュメントの左上隅から新しいセグメントの 2 番目のコントロール ポイントまでの水平方向の距離 (ポイント単位) を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。
Y2	省略可能	バリアント型	新しいセグメントの EditingType が msoEditingCorner の場合、この引数は、ドキュメントの左上隅から新しいセグメントの 2 番目のコントロール ポイントまでの水平方向の距離 (ポイント単位) を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。
X3	省略可能	バリアント型	新しいセグメントの EditingType が msoEditingCorner の場合、この引数は、ドキュメントの左上隅から新しいセグメントの 2 番目のコントロール ポイントまでの水平方向の距離 (ポイント単位) を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。
Y3	省略可能	バリアント型	新しいセグメントの EditingType が msoEditingCorner の場合、この引数は、ドキュメントの左上隅から新しいセグメントの 2 番目のコントロール ポイントまでの水平方向の距離 (ポイント単位) を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。

注釈

MsoEditingType を msoEditingSmooth または msoEditingSymmetric にすることはできません。 SegmentType が msoSegmentLine の場合、EditingType は msoEditingAuto である必要があります。

例

次の使用例は、4 つのセグメントを持つフリーフォームを 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 のサポートおよびフィードバックを参照してください。