EndConnectedShape Property [Publisher 2003 VBA Language Reference]

Returns a Shape object that represents the shape to which the end of the specified connector is attached.

expression.EndConnectedShape

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

If the end of the specified connector isn't attached to a shape, an error occurs.

Use the BeginConnectedShape property to return the shape attached to the beginning of a connector.

Example

This example assumes that the first page in the active publication already contains two shapes attached by a connector named Conn1To2. The code adds a rectangle and a connector to the first page. The end of the new connector will be attached to the same connection site as the end of the connector named Conn1To2, and the beginning of the new connector will be attached to connection site one on the new rectangle.

Dim shpNew As Shape
Dim intSite As Integer
Dim shpOld As Shape

With ActiveDocument.Pages(1).Shapes

    ' Add new rectangle.
    Set shpNew = .AddShape(Type:=msoShapeRectangle, _
        Left:=450, Top:=190, Width:=200, Height:=100)

    ' Add new connector.
    .AddConnector(Type:=msoConnectorCurve, _
        BeginX:=0, BeginY:=0, EndX:=10, EndY:=10) _
        .Name = "Conn1To3"

    ' Get connection site number of old shape, and set
    ' reference to old shape.
    With .Item("Conn1To2").ConnectorFormat
        intSite = .EndConnectionSite
        Set shpOld = .EndConnectedShape
    End With

    ' Connect new connector to old shape and new rectangle.
    With .Item("Conn1To3").ConnectorFormat
        .EndConnect ConnectedShape:=shpOld, _
            ConnectionSite:=intSite
        .BeginConnect ConnectedShape:=shpNew, _
            ConnectionSite:=1
    End With
End With

Applies to | ConnectorFormat Object