offoffdes オブジェクト (Excel)ShapeNodes object (Excel)

指定されたフリーフォームに含まれるすべての ShapeNode オブジェクトのコレクションです。A collection of all the ShapeNode objects in the specified freeform.

注釈Remarks

ShapeNode オブジェクトは、フリーフォームのセグメント間の節点、またはフリーフォームの曲線セグメントのコントロール ポイントを表します。Each ShapeNode object represents either a node between segments in a freeform or a control point for a curved segment of a freeform. フリーフォームの作成は、手動で行うか、または BuildFreeform メソッドや ConvertToShape メソッドを使用して行うことができます。You can create a freeform manually or by using the BuildFreeform and ConvertToShape methods.

Example

図形オブジェクトの**Nodes** プロパティを使用して、プロパティ**** のコレクションを取得します。Use the Nodes property of the Shape object to return the ShapeNodes collection. 次の使用例は、myDocument の図形 3 の節点 4 を削除します。The following example deletes node four in shape three on myDocument. 図形 3 は少なくとも 4 つの節点を持つフリーフォームである必要があります。For this example to work, shape three must be a freeform with at least four nodes.

Set myDocument = Worksheets(1) 
myDocument.Shapes(3).Nodes.Delete 4

新しいノードを作成し、それをコレクションに追加するのに**** には、 Insertメソッドを使用します。Use the Insert method to create a new node and add it to the ShapeNodes collection. 次の使用例は、myDocument の図形 3 の節点 4 の後に曲線の部分を持つスムーズな節点を追加します。The following example adds a smooth node with a curved segment after node four in shape three on myDocument. 図形 3 は少なくとも 4 つの節点を持つフリーフォームである必要があります。For this example to work, shape three must be a freeform with at least four nodes.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3).Nodes 
 .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 
End With

1つのShapeNodeオブジェクトを取得するには、 Nodes (index) を使用します。_引数 index_には、ノードのインデックス番号を指定します。Use Nodes (index), where index is the node index number, to return a single ShapeNode object. myDocument の図形 3 の節点 1 が頂点の場合、次の使用例は、その部分を滑らかにします。If node one in shape three on myDocument is a corner point, the following example makes it a smooth point. 次の使用例を実行するには、3 番目の図形がフリーフォームである必要があります。For this example to work, shape three must be a freeform.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType 1, msoEditingSmooth 
 End If 
End With

メソッドMethods

プロパティProperties

関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.