CanvasShapes.AddConnector (Word)

Retorna um objeto Shape que representa uma linha de conexão entre duas formas em uma tela de desenho.

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

O seguinte argumento é opcional

Type (Office.MsoConnectorType) - O tipo de conector.

BeginX (Single) - A posição horizontal que marca o início do conector.

BeginY (Single) - A posição vertical que marca o início do conector.

EndX (Single) - A posição horizontal que marca o final do conector.

EndY (Single) - A posição vertical que marca o final do conector.