Shape.DistanceFromPoint プロパティ (Visio)

図形から点までの距離を返します。 読み取り専用です。

構文

DistanceFromPoint( _x_ , _y_ , _Flags_ , _[pvPathIndex]_ , _[pvCurveIndex]_ , _[pvt]_ )

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

パラメーター

名前 必須 / オプション データ型 説明
x 必須 倍精度浮動小数点型 (Double) x 座標を指定します。
y 必須 倍精度浮動小数点型 (Double) y 座標を指定します。
Flags 必須 Integer 結果として返されるエントリの種類を制御するフラグです。
pvPathIndex 省略可能 バリアント型 (Variant) pvCurveIndexpvt を使用して図形上の点を識別します。
pvCurveIndex 省略可能 バリアント型 (Variant) pvPathIndexpvt を使用して図形上の点を識別します。
Pvt 省略可能 バリアント型 (Variant) pvPathIndexpvCurveIndex を使用して図形上の点を識別します。

戻り値

倍精度浮動小数点数

注釈

( x,y) ポイントは、ThisShape を直ちに含むシートによって定義された座標空間に対して、内部描画単位 (図面内のインチ) で表されます。

引数 pvPathIndexpvCurveIndex、および pvt はオプションであり、返された距離の測定の始点を示す値を返します。 そのポイント ( xOnThis,yOnThis) を呼び出します。 この点は、ThisShape の p 番目のパスに属する c 番目の曲線上にあり、次の方法で指定されます。

ThisShape.Paths(*pvPathIndex).Item(*pvCurveIndex).Point(*pvt,&xOnThis ,&yOnthis)

曲線に沿って位置 t で 1 番目と 2 番目の導関数を検索する場合は、Point メソッドの代わりに PointAndDerivatives メソッドを使用します。

pvPathIndex または pvCurveIndexNull でない場合、整数型 (Integer) 変数 (VT_I4 型) が返されます。 pvtNull でない場合、DistanceFromPoint は倍精度浮動小数点型 (Double) 変数 (VT_R8 型) を返します。

DistanceFromPoint プロパティは、ガイドの拡張性を考慮します。また、図形の塗りつぶされた領域とパスも考慮します。

引数 Flags には、次の表で定義された定数を組み合わせて指定できます。 これらの定数は、Microsoft Visio タイプ ライブラリの VisSpatialRelationFlags でも定義されています。

定数 説明
visSpatialIncludeDataGraphics &H40 データ グラフィックの引き出し図形とそのサブ図形を含めます。 既定では、データ グラフィックの引き出し図形とそのサブ図形は含まれません。 親図形自体がデータ グラフィックの引き出し図形である場合、フラグを設定しなくても、親図形の座標と引き出し以外の図形の間で検索が実行されます。
visSpatialIncludeHidden &H10 非表示の [Geometry] セクションを考慮します。 既定では、非表示の Geometry セクションは結果に影響しません。
visSpatialIgnoreVisible &H20 表示されている [Geometry] セクションを考慮しません。 既定では、表示されている [Geometry] セクションは結果に影響を与えません。

[Geometry] セクションが表示されているか、非表示かを判断するには、[NoShow] セルを使用します。 [NoShow] セルの値は、[Geometry] セクションが非表示の場合は True、表示されている場合は False になります。

親オブジェクトに座標がない場合、または Flags がすべての図形の座標を考慮しない場合には、DistanceFromPoint プロパティは無限の値として解釈される数値 (1E+30) を返します。

DistanceFromPoint プロパティは、結果を計算するときに、図形の線、影、線の端点、コントロール ポイント、および接続ポイントの幅を考慮しません。

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

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