CanvasShapes.AddPolyline, méthode (Word)

  • Article

Ajoute un polygone ouvert ou fermé à une zone de dessin. Renvoie un objet Shape qui représente le polygone.

Syntaxe

expression. AddPolyline( _SafeArrayOfPoints_ )

expression Obligatoire. Variable qui représente un objet CanvasShapes .

Parameters

Nom Requis/Facultatif Type de données Description
SafeArrayOfPoints Obligatoire Variant Tableau de paires de coordonnées qui indique les sommets du dessin en forme de polyligne.

Remarques

Pour former un polygone fermé, affectez les mêmes coordonnées aux premier et dernier sommets dans le dessin en forme de polyligne.

Exemple

Cet exemple montre comment créer un dessin en forme de polyligne ouvert en forme de V dans une nouvelle zone de dessin.

Sub NewCanvasPolyline() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 Dim sngArray(1 To 3, 1 To 2) As Single 
 
 'Creates a new document and adds a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=200, Height:=300) 
 
 'Sets the coordinates of the array 
 sngArray(1, 1) = 100 
 sngArray(1, 2) = 75 
 sngArray(2, 1) = 150 
 sngArray(2, 2) = 100 
 sngArray(3, 1) = 100 
 sngArray(3, 2) = 125 
 
 'Adds a V-shaped open polyline to the drawing canvas 
 shpCanvas.CanvasItems.AddPolyline SafeArrayOfPoints:=sngArray 
End Sub

Voir aussi

CanvasShapes, Collection

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.