Lire en anglais

Partager via


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.

Syntaxe

expression. Points (Tolérance, xyArray())

Expression Variable qui représente un objet Path .

Parameters

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.

Valeur renvoyée

Aucune

Remarques

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é.

Exemple

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

Assistance et commentaires

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.