ConnectorFormat.BeginConnect 方法 (Excel)

将指定连接线的始端附加到指定形状。 如果已存在的连接符的起点与其他形状之间的连接，该连接会断开。

如果连接符的起点没有位于指定的连接位置，此方法将连接符的起点移到该连接结点，并调整连接符的位置和大小。

使用 EndConnect 方法将连接符的终点连接到形状。

语法

表达式。BeginConnect (ConnectedShape、 ConnectionSite)

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

参数

名称	必需/可选	数据类型	说明
ConnectedShape	必需	Shape	要连接到连接符起点的形状。 指定的 Shape 对象必须与连接符位于同一 Shapes 集合中。
ConnectionSite	必需	Long	ConnectedShape 指定的形状上的连接站点。 必须是 1 到指定形状的 ConnectionSiteCount 属性返回的整数之间的整数。 如果希望连接符自动查找其连接的两个形状之间的最短路径，请为此参数指定任何有效的整数，然后在连接符附加到两端的形状后使用 RerouteConnections 方法。

备注

将连接符连接到某个对象以后，该连接符的大小和位置将在必要时进行自动调整。

示例

本示例将两个矩形添加到 myDocument ，并使用曲线连接线连接它们。 请注意，RerouteConnections 方法与为 BeginConnect 和 EndConnect 方法一起使用的 ConnectionSite 参数提供哪些值无关。

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) 
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) 
with c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
End With

支持和反馈

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