AddConnector Method

  • Article

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Returns a Shape object that represents a connecting line between two shapes in a drawing canvas.

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

expression   Required. An expression that returns a CanvasShapes object.

MsoConnectorType

MsoConnectorType can be one of these MsoConnectorType constants.
msoConnectorCurve
msoConnectorElbow 
msoConnectorStraight
msoConnectorTypeMixed Not used with this method.

BeginX  Required Single.  The horizontal position that marks the beginning of the connector.

BeginY  Required Single.  The vertical position that marks the beginning of the connector.

EndX  Required Single. The horizontal position that marks the end of the connector.

EndY  Required Single. The vertical position that marks the end of the connector.

Example

The following example adds a curved connector to a new canvas in a new document.

  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