Share via

ConnectorFormat.BeginConnectionSite Property

  • Article
Publisher Developer Reference

Returns a Long indicating the connection site to which the beginning of a connector is connected. Read-only.

Syntax

expression.BeginConnectionSite

expression   A variable that represents a ConnectorFormat object.

Return Value
Long

Remarks

If the beginning of the specified connector isn't attached to a shape, this property generates an error.

Use the EndConnectionSite property to return the site to which the end of a connector is connected.

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 beginning of the new connector will be attached to the same connection site as the beginning of the connector named Conn1To2, and the end of the new connector will be attached to connection site one on the new rectangle.

Visual Basic for Applications 
  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 = .<strong class="bterm">BeginConnectionSite</strong>
    Set shpOld = .BeginConnectedShape
End With

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



End With

See Also