Shapes.AddPolyline, méthode (Word)
Ajoute un polygone ouvert ou fermé à une zone de dessin. Renvoie un objet Shape qui représente le polygone et l'ajoute à la collection CanvasShapes.
Syntaxe
expression. AddPolyline( _SafeArrayOfPoints_ )
expression Obligatoire. Variable qui représente un objet Shapes .
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
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.