FreeformBuilder.AddNodes メソッド (PowerPoint)

  • [アーティクル]

作成中のフリーフォームの末尾に新しいセグメントを挿入し、セグメントを定義する節点を追加します。 このメソッドは、作成するフリーフォームにノードを追加する回数だけ使用します。 ノードの追加が完了したら、定義したフリー フォームを作成するのには、 ConvertToShape メソッドを使用します。 作成された後は、フリー フォームにノードを追加するには、 ShapeNodes コレクションの Insert メソッドを使用します。

構文

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

パラメーター

名前 必須 / オプション データ型 説明
SegmentType 必須 MsoSegmentType 追加するセグメントの種類を指定します。
EditingType 必須 MsoEditingType 頂点の編集のプロパティです。 SegmentType に msoSegmentLine がある場合、編集タイプは msoEditingAuto をする必要があります。
X1 必須 単精度浮動小数点型 (Single) 新しいセグメントの編集タイプが msoEditingAuto の場合は、この引数は、新しいセグメントの端点をドキュメントの左上隅から、水平方向の距離 (ポイント単位) を指定します。 新しいノードの編集タイプが msoEditingCorner の場合は、この引数は、新しいセグメントの最初のコントロール ポイントをドキュメントの左上隅から、水平方向の距離 (ポイント単位) を指定します。
Y1 必須 単精度浮動小数点型 (Single) 新しいセグメントの編集タイプが msoEditingAuto の場合は、この引数は、新しいセグメントの端点をドキュメントの左上隅から垂直方向の距離 (ポイント単位で) を指定します。 新しいノードの編集タイプが msoEditingCorner の場合は、この引数は、新しいセグメントの最初のコントロール ポイントをドキュメントの左上隅から垂直方向の距離 (ポイント単位で) を指定します。
X2 省略可能 単精度浮動小数点型 (Single) 新しいセグメントの編集タイプが msoEditingCorner の場合は、この引数は、新しいセグメントの 2 番目の制御点をドキュメントの左上隅から、水平方向の距離 (ポイント単位) を指定します。 MsoEditingAuto の場合は、新しいセグメントの編集タイプには、この引数の値を指定しないでください。
Y2 省略可能 単精度浮動小数点型 (Single) 新しいセグメントの編集タイプが msoEditingCorner の場合は、この引数は、新しいセグメントの 2 番目の制御点をドキュメントの左上隅から垂直方向の距離 (ポイント単位で) を指定します。 MsoEditingAuto の場合は、新しいセグメントの編集タイプには、この引数の値を指定しないでください。
X3 省略可能 単精度浮動小数点型 (Single) 新しいセグメントの編集タイプが msoEditingCorner の場合は、この引数は、新しいセグメントの端点をドキュメントの左上隅から、水平方向の距離 (ポイント単位) を指定します。 MsoEditingAuto の場合は、新しいセグメントの編集タイプには、この引数の値を指定しないでください。
Y3 省略可能 単精度浮動小数点型 (Single) 新しいセグメントの編集タイプが msoEditingCorner の場合は、この引数は、新しいセグメントの端点をドキュメントの左上隅から垂直方向の距離 (ポイント単位で) を指定します。 MsoEditingAuto の場合は、新しいセグメントの編集タイプには、この引数の値を指定しないでください。

例

次の使用例は、作業中のプレゼンテーションのスライド 1 に 4 つの頂点を持つフリーフォームを追加します。

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
        X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
        X1:=480, Y1:=200 
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
        X1:=480, Y1:=400 
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
        X1:=360, Y1:=200 
    .ConvertToShape 
End With

関連項目

FreeformBuilder オブジェクト

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

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