Méthode Path.Points (Visio)
Renvoie une disposition de points qui définit une polyligne représentant approximativement un objet Path ou Curve dans une tolérance donnée.
expression. Points (Tolérance, xyArray())
Expression Variable qui représente un objet Path .
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Tolerance | Requis | Double | Indique la latitude dont dispose la disposition de points par rapport au chemin réel de la courbe. |
xyArray() | Requis | Double | Paramètre sortant. Renvoie un tableau de valeurs x et y indiquant des points le long d'un trait de chemin ou de courbe. |
Aucune
Utilisez la méthode Points de l’objet Path ou Curve pour obtenir un tableau de coordonnées x,y spécifiant des points le long du chemin ou de la courbe dans une tolérance donnée. La tolérance et les valeurs renvoyées x,y sont exprimées en unités de dessin internes (pouces).
Si vous utilisez la propriété Paths d'un objet Shapes pour obtenir l'objet Path ou Curve interrogé, les coordonnées sont exprimées selon le système de coordonnées du parent. Si vous avez utilisé la propriété PathsLocal d'un objet Shape pour obtenir l'objet Path ou Curve, les coordonnées sont exprimées selon le système de coordonnées local.
Si Microsoft Visio ne parvient pas à respecter la tolérance indiquée, les points seront définis en essayant de s’approcher au maximum de la tolérance demandée. En règle générale, plus la tolérance est faible, plus Visio renvoie de points. La tolérance zéro (0) n’est pas acceptée.
Le tableau renvoyé comprend les points de départ et de fin du chemin ou de la courbe, même si ce dernier est fermé.
Cette macro Microsoft Visual Basic pour Applications (VBA) place une forme sur la page, récupère sa collection Paths, puis utilise la méthode Points de l'objet Path pour renvoyer une disposition de points définissant une polyligne représentant approximativement l'objet 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
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.