通过

ConnectorFormat.BeginConnectionSite 属性 (Publisher)

  • 项目

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

语法

表达式。BeginConnectionSite

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

返回值

Long

备注

如果指定连接符的起点没有连接到任何形状，则使用此属性会生成错误。

使用 EndConnectionSite 属性可返回连接符终点连接的位置。

示例

本示例假定当前出版物中的第一页已经包含两个由名为 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 = .BeginConnectionSite 
 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

支持和反馈

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