Table of contents
TOC
Collapse the table of content
Expand the table of content

ConnectorFormat.EndConnectionSite Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
|
3 Contributors

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

Syntax

expression. EndConnectionSite

_expression_A variable that represents an ConnectorFormat object.

Return Value

Long

Remarks

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

Use the BeginConnectionSite property to return the site to which the beginning 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 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 
© 2018 Microsoft