Propriété Shape.Paths (Visio)

Renvoie une collection Paths qui détermine les coordonnées du chemin d'une forme dans le système de coordonnées du parent de la forme. En lecture seule.

Syntaxe

expression. Paths

expression Une variable qui représente uneForme d’objet.

Valeur renvoyée

Paths

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) place une forme sur la page, récupère sa collection Paths, puis utilise la propriété Points de l'objet Path pour renvoyer une disposition de points définissant une polyligne qui représente approximativement l'objet Path.

 
Public Sub Paths_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 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.