BeginConnect 方法 - Microsoft Excel Visual Basic 2002 参考

返回介绍

BeginConnect 方法

发布于 2019-08-07 字数 1761 浏览 786 评论 0

将指定的连接符的起点连接到指定的图形上。如果在连接符的起点与其他图形之间已经有了连接,那么该已有的连接将中断。如果连接符的起点不在所需的连接站点上,本方法将把连接符的起点移到该连接站点,并对连接符的大小和位置作相应的调整。可用 EndConnect 方法将连接符的终点连接到某一图形上。


expression.BeginConnect(ConnectedShape, ConnectionSite)


expression必需。该表达式返回一个 ConnectorFormat 对象。


ConnectedShapeShape 对象,必需。连接到连接符起点的图形。指定的 Shape 对象必须和连接符在同一个 Shapes 集合中。


ConnectionSiteLong 类型,必需。由 ConnectedShape 参数所指定的形状上的连接站点。必须是从 1 到指定图形的 ConnectedShape 属性值之间的整数。如果要找到连接符连接两个图形的最短路径,则可先在此参数中指定任一有效值,然后在连接符与两端的图形连接完成之后,使用 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

上一篇:BarGroups 方法

下一篇:BeginDisconnect 方法

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!