Syntax

expression.ConnectionSiteCount

expression An expression that returns a Shape object.

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.

Visual Basic for Applications 
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

See also: