通过

ConnectorFormat.EndConnectionSite 属性 (Publisher)

  • 项目

返回 Long 类型，表示连接符的终点所连接到的连接位置。 此为只读属性。

语法

表达式。EndConnectionSite

表达 一个代表 ConnectorFormat 对象的变量。

返回值

Long

备注

如果指定连接符的终点没有连接到形状，该属性将产生错误。

使用 BeginConnectionSite 属性可返回连接符的起点所连接的位置。

示例

本示例假定当前出版物中的第一页已经包含两个由名为 Conn1To2 的连接符连接的形状。 该代码将一个矩形和一个连接符添加到第一页。 新连接符终点的连接位置与原来名为 Conn1To2 的连接符终点的连接位置相同，而新连接符的起点会连接到新矩形的第一个连接位置上。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。