Shape.Vertices プロパティ (Word)

  • [アーティクル]

指定したフリーフォームの頂点 (およびベジェ曲線のコントロール ポイント) の座標を、一連の 2 次元の座標として取得します。 読み取り専用のバリアント型 (Variant) の値。

構文

式。頂点

expression 必須です。 Shape オブジェクトを表す変数を指定します。

注釈

AddCurve メソッドまたは AddPolyLine メソッドの引数として、このプロパティによって返される配列を使用します。

次の表は、 Vertices プロパティが配列 vertArray() の値を三角形の頂点の座標に関連付ける方法を示しています。

vertArray の要素 Contains
vertArray(1, 1) 最初の頂点から文書の左端までの水平方向の距離
vertArray(1, 2) 最初の頂点から文書の上端までの垂直方向の距離
vertArray(2, 1) 2 番目の頂点から文書の左端までの水平方向の距離
vertArray(2, 2) 2 番目の頂点から文書の上端までの垂直方向の距離
vertArray(3, 1) 3 番目の頂点から文書の左端までの水平方向の距離
vertArray(3, 2) 3 番目の頂点から文書の上端までの垂直方向の距離

例

次の使用例は、現在の文書内の 1 番目の図形の頂点の座標を配列変数に代入し、最初の頂点の座標を表示します。 1 番目の図形はフリーフォームである必要があります。

With ActiveDocument.Shapes(1) 
    vertArray = .Vertices 
    x1 = vertArray(1, 1) 
    y1 = vertArray(1, 2) 
    MsgBox "First vertex coordinates: " & x1 & ", " & y1 
End With

次の使用例は、作業中の文書の図形 1 と同じ幾何学的な説明を持つ曲線を作成します。 次の使用例は、最初の図形が 3n+1 個の頂点を含むベジエ曲線であることを前提としています。ここで、n は曲線セグメントの数です。

With ActiveDocument.Shapes 
    .AddCurve .Item(1).Vertices, Selection.Range 
End With

関連項目

Shape オブジェクト

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

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