CanvasShapes.AddConnector (Word)

Renvoie un objet Shape qui représente une ligne de connexion entre deux formes dans une zone de dessin.

AddConnector (Type, BeginX, BeginY, EndX, EndY)

Sub AddCanvasConnector() 
 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 Set docNew = Documents.Add 
 
 'Add drawing canvas to new document 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=150, Top:=150, Width:=200, Height:=300) 
 
 'Add connector to the drawing canvas 
 shpCanvas.CanvasItems.AddConnector _ 
 Type:=msoConnectorStraight, BeginX:=150, _ 
 BeginY:=150, EndX:=200, EndY:=200 
 
End Sub

Arguments

Les arguments nommés :

Type (Office.MsoConnectorType) - Type de connecteur.

BeginX (Single) - Emplacement horizontal qui marque le début du connecteur.

BeginY (Single) - Emplacement vertical qui marque le début du connecteur.

EndX (Single) - Emplacement horizontal qui marque la fin du connecteur.

EndY (Single) - Emplacement vertical qui marque la fin du connecteur.