CanvasShapes.AddLine (Word)

Ajoute une ligne à une zone de dessin.

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

AddLine (BeginX, BeginY, EndX, EndY)

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

Arguments

Les arguments nommés :

BeginX (Single) - Position horizontale, exprimée en points, du point de départ du trait par rapport à la zone de dessin.

BeginY (Single) - Position verticale, exprimée en points, du point de départ du trait par rapport à la zone de dessin.

EndX (Single) - Position horizontale, exprimée en points, du point de terminaison du trait par rapport à la zone de dessin.

EndY (Single) - Position verticale, exprimée en points, du point d'extrémité du trait par rapport à la zone de dessin.