Shape.Vertices プロパティ (PowerPoint)

  • [アーティクル]

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

構文

式。頂点

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

戻り値

バリアント型

注釈

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

関連項目

Shape オブジェクト

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

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