ShapeNodes.Insert メソッド (PowerPoint)
指定されたフリーフォームの節点に続けて新しいセグメントを挿入します。
構文
式。Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
式ShapeNodes オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Index | 必須 | 長整数型 (Long) | 後ろに新しい節点を挿入する節点を指定します。 |
SegmentType | 必須 | MsoSegmentType | 追加するセグメントの種類を指定します。 |
EditingType | 必須 | MsoEditingType | 頂点の編集プロパティを指定します。 |
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 の場合は、新しいセグメントの編集タイプには、この引数の値を指定しないでください。 |
注釈
SegmentType パラメーター値は、これらの MsoSegmentType クラスの定数のいずれかです。
msoSegmentCurve |
msoSegmentLine |
EditingType パラメーターの値は、これらの MsoEditingType クラスの定数のいずれかです。
msoEditingAuto |
msoEditingCorner |
例
次の使用例は、myDocument の図形 3 の頂点 4 の後に曲線の部分を持つ滑らかな節点を追加します。 図形 3 は、最低 4 つの節点を持つフリーフォームである必要があります。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
.Insert Index:=4, SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。