CanvasShapes.AddConnector (Word)
Gibt ein Shape -Objekt zurück, das eine Verbindungslinien zwischen zwei Formen in einem Zeichenbereich darstellt.
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
Hier sind die benannte Argumente :
Type (Office.MsoConnectorType) - Der Typ der Verbindung.
BeginX (Single) - Die horizontale Position, die den Anfang der Verbindung markiert.
BeginY (Single) - Die vertikale Position, die den Anfang der Verbindung markiert.
EndX (Single) - Die horizontale Position, die das Ende der Verbindung markiert.
EndY (Single) - Die vertikale Position, die das Ende der Verbindung markiert.