次の方法で共有

ShapeNodes オブジェクト (Word)

  • [アーティクル]

特定のフリーフォームのすべての ShapeNode オブジェクトのコレクションです。 各 ShapeNode オブジェクトは、フリーフォームのセグメント間の節点、またはフリーフォームの曲線セグメントのコントロール ポイントを表します。

注釈

フリーフォームは、手動で作成することも、 BuildFreeform メソッドと ConvertToShape メソッドを使用して作成することもできます。

ShapeNodes コレクションを取得するには、Nodes プロパティを使用します。 次の使用例は、作業中の文書の 3 番目の図形の 4 番目の節点を削除します。 次の使用例を実行するには、3 番目の図形が少なくとも 4 つの節点を持つフリーフォームである必要があります。

ActiveDocument.Shapes(3).Nodes.Delete 4

Insert メソッドを使用して新しいノードを作成し、ShapeNodes コレクションに追加します。 次の使用例は、作業中の文書の 3 番目の図形の 4 番目の節点の後に、曲線の線分を含む、滑らかな節点を追加します。 次の使用例を実行するには、3 番目の図形が少なくとも 4 つの節点を持つフリーフォームである必要があります。

With ActiveDocument.Shapes(3).Nodes 
 .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 
End With

単一の ShapeNode オブジェクトを取得するには、ノード (Index) を使用します。Index はノードインデックス番号です。 次の使用例は、作業中の文書の 3 番目の図形の最初の節点が角の頂点である場合、その角を滑らかにします。 次の使用例を実行するには、3 番目の図形がフリーフォームである必要があります。

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

関連項目

Word オブジェクト モデル リファレンス

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

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