CanvasShapes.AddConnector (Word)

Devuelve un objeto Shape que representa una línea de conexión entre dos formas de un lienzo de dibujo.

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

Estos son los argumentos con nombre :

Type (Office.MsoConnectorType) - Tipo de conector.

BeginX (Single) - Posición horizontal que marca el inicio del conector.

BeginY (Single) - Posición vertical que marca el inicio del conector.

EndX (Single) - Posición horizontal que marca el final del conector.

EndY - Single