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