Shape.Vertices プロパティ (Excel)

指定したフリーフォームの頂点 (およびベジェ曲線のコントロール ポイント) の座標を、一連の 2 次元の座標として取得します。 AddCurve メソッドまたは AddPolyLine メソッドの引数として、このプロパティによって返される配列を使用します。 読み取り専用のバリアント型 (Variant) の値。

構文

式。頂点

式Shape オブジェクトを表す変数。

注釈

次の表は 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 番目の頂点から文書の上端までの垂直方向の距離

例

次の使用例は、 myDocument の図形 1 の頂点座標を配列変数 vertArray()に割り当て、最初の頂点の座標を表示します。

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

次の使用例では、myDocument の図形 1 と幾何学的な特徴が同じである曲線を作成します。 図形 1 は、コントロール ポイントの数が 3 n + 1 のフリーフォームである必要があります。

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
 .AddCurve .Item(1).Vertices 
End With

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

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