ConnectionSiteCount Property Example

This example adds two rectangles to myDocument and joins them with two connectors. The beginnings of both connectors attach to connection site one on the first rectangle; the ends of the connectors attach to the first and last connection sites of the second rectangle.

Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, _
    100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, _
    300, 300, 200, 100)
lastsite = secondRect.ConnectionSiteCount
With s.AddConnector(msoConnectorCurve, _
        0, 0, 100, 100).ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, _
        ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, _
        ConnectionSite:=1
End With
With s.AddConnector(msoConnectorCurve, _
        0, 0, 100, 100).ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, _
        ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, _
        ConnectionSite:=lastsite
End With