次の方法で共有

Curve.Points メソッド (Visio)

  • [アーティクル]

指定した許容値内の Path オブジェクトまたは Curve オブジェクトに近似するポリラインを定義するポイントの配列を返します。

構文

式。ポイント (許容値、 xyArray())

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

パラメーター

名前 必須 / オプション データ型 説明
Tolerance 必須 Double 返された点の配列を、実際のパスに近似させる度合いを指定します。
xyArray() 必須 Double パスまたは曲線のストロークに沿った点を示す x と y の値が交互に表された配列を返します。

戻り値

なし

解説

Path オブジェクトまたは Curve オブジェクトの Points メソッドを使用して、指定した許容値内のパスまたは曲線に沿った点を指定する x、y 座標の配列を取得します。 誤差、および返される x,y 値は、図面の内部単位 (インチ) で表されます。

問い合わせ中の Path オブジェクトまたは Curve オブジェクトを取得するために Shapes オブジェクトの Paths プロパティを使用した場合、座標は親の座標系で表されます。 Path オブジェクトまたは Curve オブジェクトを取得するために Shape オブジェクトの PathsLocal プロパティを使用した場合、座標はローカル座標系で表されます。

指定された誤差で近似できない場合は、指定された誤差にできるだけ近い点に近似されます。 一般的には、誤差が小さいほど、より多くの点が返されます。 Visio では、誤差 0 は使用できません。

閉じた図形の場合でも、返される配列にはパスまたは曲線の始点と終点の両方が含まれます。

例

次の VBA (Microsoft Visual Basic for Applications) マクロは、ページ上に図形を配置し、その Paths コレクションを取得します。次に、Path オブジェクトの Points メソッドを使用して Path オブジェクトに近似したポリラインを定義する点の配列を返します。

 
Public Sub Points_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim adblXYPoints() As Double 
 Dim strPointsList As String 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 Set vsoShape = ActivePage.DrawOval(1, 1, 4, 4) 
 
 For intOuterLoopCounter = 1 To vsoShape.Paths.Count 
 
 vsoShape.Paths(intOuterLoopCounter).Points 0.1, adblXYPoints 
 For intInnerLoopCounter = LBound(adblXYPoints) To UBound(adblXYPoints) 
 strPointsList = strPointsList & adblXYPoints(intInnerLoopCounter) & Chr(10) 
 Next intInnerLoopCounter 
 
 Next intOuterLoopCounter 
 
 Debug.Print strPointsList 
 
End Sub

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

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