FreeformBuilder.AddNodes メソッド (Publisher)
作成され、セグメントを定義する節点を追加するフリー フォームの末尾に新しいセグメントを挿入します。
このメソッドは、作成するフリーフォームにノードを追加する回数だけ使用します。 ノードの追加を完了したら、 ConvertToShape メソッドを使用して、定義したフリーフォームを作成します。
構文
式。AddNodes (SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)
式FreeformBuilder オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
SegmentType | 必須 | MsoSegmentType | 追加するセグメントの種類を指定します。 msoSegmentCurve または msoSegmentLine を指定できます。 |
EditingType | 必須 | MsoEditingType | 新しいノードの編集の種類。 msoEditingAuto または msoEditingCorner を指定できます。 SegmentType が msoSegmentLine の場合、EditingType は msoEditingAuto である必要があります。それ以外の場合は、エラーが発生します。 |
X1 | 必須 | バリアント型 | 新しいセグメントの EditingType が msoEditingAuto の場合、この引数はページの左上隅から新しいセグメントの端点までの水平方向の距離を指定します。 新しいノードの EditingType が msoEditingCorner の場合、この引数は、ページの左上隅から新しいセグメントの最初のコントロール ポイントまでの水平方向の距離を指定します。 |
Y1 | 必須 | バリアント型 | 新しいセグメントの EditingType が msoEditingAuto の場合、この引数はページの左上隅から新しいセグメントの端点までの垂直距離を指定します。 新しいノードの EditingType が msoEditingCorner の場合、この引数はページの左上隅から新しいセグメントの最初のコントロール ポイントまでの垂直距離を指定します。 |
X2 | 省略可能 | バリアント型 | 新しいセグメントの EditingType が msoEditingCorner の場合、この引数はページの左上隅から新しいセグメントの 2 番目のコントロール ポイントまでの水平方向の距離を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。 |
Y2 | 省略可能 | バリアント型 | 新しいセグメントの EditingType が msoEditingCorner の場合、この引数はページの左上隅から新しいセグメントの 2 番目のコントロール ポイントまでの垂直距離を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。 |
X3 | 省略可能 | バリアント型 | 新しいセグメントの EditingType が msoEditingCorner の場合、この引数はページの左上隅から新しいセグメントのエンドポイントまでの水平方向の距離を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。 |
Y3 | 省略可能 | バリアント型 | 新しいセグメントの EditingType が msoEditingAuto の場合、この引数はページの左上隅から新しいセグメントの端点までの垂直距離を指定します。 引数 EditingType が msoEditingAuto の場合は、この引数を指定しないでください。 |
注釈
X1、Y1、X2、Y2、X3、および Y3 引数の場合、数値はポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。
作成後にフリーフォームにノードを追加するには、ShapeNodes コレクションの Insert メソッドを使用します。
例
次の使用例は、作業中の文書の先頭ページに、4 つの頂点を持つフリーフォームを追加します。
' Add a new freeform object.
With ActiveDocument.Pages(1).Shapes _
.BuildFreeform(EditingType:=msoEditingCorner, _
X1:=100, Y1:=100)
' Add three more nodes and close the polygon.
.AddNodes SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingCorner, _
X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200
.AddNodes SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingAuto, X1:=200, Y1:=100
.AddNodes SegmentType:=msoSegmentLine, _
EditingType:=msoEditingAuto, X1:=150, Y1:=50
.AddNodes SegmentType:=msoSegmentLine, _
EditingType:=msoEditingAuto, X1:=100, Y1:=100
' Convert the polygon to a Shape object.
.ConvertToShape
End With
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示