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 のサポートおよびフィードバックを参照してください。