Curve.Point, méthode (Visio)
Renvoie un point sur une position le long d'une courbe.
expression. Point (t, x, y)
Expression Variable qui représente un objet Curve .
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
t | Requis | Double | Valeur à calculer dans le domaine de paramètres de la courbe. |
x | Obligatoire | Double | Retourne la valeur x de la courbe à t. |
y | Obligatoire | Double | Retourne la valeur y de la courbe à t. |
Aucune
Un objet Curve est décrit en termes de domaine de paramètres, constitué de la plage [Start(),End()]. La méthode Point d’un objet Curve retourne les coordonnées x,y à la position t, qui correspond à n’importe quelle position le long du tracé de la courbe. La méthode Point peut être utilisée pour extrapoler le chemin de la courbe à l'extérieur de [Start(),End()].
La macro Microsoft Visual Basic pour Applications (VBA) dessine un cercle (cas particulier d'ovale) sur la page active du document. Elle effectue ensuite une itération dans la collection Paths du cercle et dans chaque objet Path pour afficher les coordonnées des différents points le long de la courbe. Étant donné que la forme dessinée est un cercle, il s'agit d'un objet Curve qui n'a qu'un chemin.
Sub Point_Example()
Dim vsoShape As Visio.Shape
Dim vsoPaths As Visio.Paths
Dim vsoPath As Visio.Path
Dim vsoCurve As Visio.Curve
Dim dblEndpoint As Double
Dim dblXCoordinate As Double
Dim dblYCoordinate As Double
Dim intOuterLoopCounter As Integer
Dim intInnerLoopCounter As Integer
'Get the Paths collection for this shape.
Set vsoPaths = ActivePage.DrawOval(1, 1, 4, 4).Paths
'Iterate through the Path objects in the Paths collection.
For intOuterLoopCounter = 1 To vsoPaths.Count
Set vsoPath = vsoPaths.Item(intOuterLoopCounter)
Debug.Print "Path object " & intOuterLoopCounter
'Iterate through the curves in the Path object.
For intInnerLoopCounter = 1 To vsoPath.Count
Set vsoCurve = vsoPath(intInnerLoopCounter)
Debug.Print "Curve number " & intInnerLoopCounter
'Display the endpoint of the curve
dblEndpoint = vsoCurve.End
Debug.Print "Endpoint= " & dblEndpoint
'Use the Point method to determine the
'coordinates of an arbitrary point on the curve
vsoCurve.Point (dblEndpoint/2), dblXCoordinate, dblYCoordinate
Debug.Print "Point= " & dblXCoordinate, dblYCoordinate
Next intInnerLoopCounter
Debug.Print "This path has " & intInnerLoopCounter - 1 & " curve object(s)."
Next intOuterLoopCounter
Debug.Print "This shape has " & intOuterLoopCounter - 1 & " path object(s)."
End Sub
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.