Shapes.AddLine, méthode (Word)

Article
04/07/2023

Ajoute une ligne à une zone de dessin.

Syntaxe

expression. AddLine (BeginX, Beginy, EndX, EndY)

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

Parameters

Nom	Requis/Facultatif	Type de données	Description
BeginX	Obligatoire	Single	Position horizontale, exprimée en points, du point de départ du trait par rapport à la zone de dessin.
BeginY	Obligatoire	Single	Position verticale, exprimée en points, du point de départ du trait par rapport à la zone de dessin.
EndX	Obligatoire	Single	Position horizontale, exprimée en points, du point de terminaison du trait par rapport à la zone de dessin.
EndY	Obligatoire	Single	Position verticale, exprimée en points, du point de terminaison du trait par rapport à la zone de dessin.

Valeur renvoyée

Shape

Remarques

Pour créer une flèche, utilisez la propriété Line pour mettre en forme un trait.

Exemple

Cet exemple montre comment ajouter un trait violet à une nouvelle zone de dessin.

Sub NewCanvasLine() 
 Dim shpCanvas As Shape 
 Dim shpLine As Shape 
 
 'Add new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=150, Height:=200) 
 
 'Add a line to the drawing canvas 
 Set shpLine = shpCanvas.CanvasItems.AddLine( _ 
 BeginX:=25, BeginY:=25, EndX:=150, EndY:=150) 
 
 'Add an arrow to the line and sets the color to purple 
 With shpLine.Line 
 .BeginArrowheadStyle = msoArrowheadDiamond 
 .BeginArrowheadWidth = msoArrowheadWide 
 .ForeColor.RGB = RGB(Red:=150, Green:=0, Blue:=255) 
 End With 
End Sub

Voir aussi

Shapes, Collection d'objets

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.

Partager via