Shape.DrawPolyline, méthode (Visio)

Article
04/07/2023

Crée une forme dont le chemin correspond à une polyligne passant par un ensemble de points donné.

Syntaxe

expression. DrawPolyline( _xyArray()_ , _Flags_ )

Expression Variable qui représente un objet Shape .

Parameters

Nom	Requis/Facultatif	Type de données	Description
xyArray()	Requis	Double	Tableau des valeurs x et y successives qui définissent les points du chemin de la nouvelle forme.
Flags	Requis	Integer	Indicateurs influençant la manière dont la forme est tracée.

Valeur renvoyée

Shape

Remarques

La méthode DrawPolyline crée une forme dont le chemin est composé d'une suite de segments de droite et dont les extrémités correspondent aux points définis dans le tableau TableauXY. Appeler la méthode DrawPolyline donne les mêmes résultats qu'appeler la méthode DrawSpline avec une tolérance zéro (0) et un indicateur de visSplineAbrupt.

Les points de contrôle doivent être exprimés en unités de dessin internes (pouces) par rapport à l'espace coordonné de la page, de la forme de base ou du groupe dans lequel la nouvelle forme est créée. Le tableau transmis doit être de type SAFEARRAY avec des valeurs à virgule flottante de 8 octets transmises par référence (VT_R8|VT_ARRAY|VT_BYREF). C'est de cette façon que Microsoft Visual Basic transmet des tableaux aux objets Automation.

L'argument Indicateurs est un masque binaire définissant les options de dessin de la nouvelle forme. Sa valeur peut inclure visPolyline1D (8) ou visPolyarcs (256). Si l'argument Indicateurs inclut :

visPolyline1D et si les premier et dernier points de xyArray ne coïncident pas, la méthode DrawPolyline produit une forme avec un comportement unidimensionnel (1D) ; sinon, elle produit une forme avec un comportement 2D (2D).
visPolyarcs, Microsoft Visio produit une séquence d’arcs plutôt qu’une séquence de segments de ligne ; xyArray doit spécifier le point x,y initial de la séquence, suivi de x,y bow triples. Visio produit une forme avec des lignes EllipticalArcTo où l’arc correspond à la valeur spécifiée.

Si le premier et le dernier point du tableau TableauXY coïncident, la méthode DrawPolyline génère une forme pleine.

Exemple

L’exemple suivant montre comment dessiner deux formes polylignes qui ont un comportement 2D et 1D, respectivement, sur la page active.

 
Public Sub DrawPolyline_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim adblXYPoints(1 To 8) As Double 
 Dim intCounter As Integer 
 
 'Initialize array with coordinates. 
 adblXYPoints(1) = 1 
 adblXYPoints(2) = 1 
 adblXYPoints(3) = 3 
 adblXYPoints(4) = 3 
 adblXYPoints(5) = 5 
 adblXYPoints(6) = 1 
 adblXYPoints(7) = 1 
 adblXYPoints(8) = 2 
 
 'Use the DrawPolyline method to draw a shape that has 2D behavior. 
 Set vsoShape = ActivePage.DrawPolyline(adblXYPoints, 0) 
 
 'Increase the Y-coordinate of the array by 4 to separate 
 'the next shape drawn from the first. 
 For intCounter = 2 To UBound(adblXYPoints) Step 2 
 adblXYPoints(intCounter) = adblXYPoints(intCounter) + 4 
 Next intCounter 
 
 'Use the DrawPolyline method to draw a shape that has 1D behavior. 
 Set vsoShape = ActivePage.DrawPolyline(adblXYPoints, visPolyline1D) 
 
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.

Share via