ShapeRange.Vertices プロパティ (PowerPoint)
指定したフリーフォームの頂点 (およびベジェ曲線のコントロール ポイント) の座標を一連の座標の組として取得します。 読み取り専用です。
構文
式。頂点
式ShapeRange オブジェクトを表す変数。
戻り値
バリアント型
注釈
AddCurve メソッドまたは AddPolyline メソッドの引数として、このプロパティによって返される配列を使用します。
次の表は Vertices プロパティと、三角形の頂点の座標を含む配列 vertArray() との関係を示しています。
| VertArray の要素 | 内容 |
|---|---|
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 = ActivePresentation.Slides(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 = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。