EndDisconnect 方法 - Microsoft Excel Visual Basic 2002 参考

返回介绍

EndDisconnect 方法

发布于 2019-08-07 字数 926 浏览 1091 评论 0

使指定的连接符的终点与其所连接的图形脱离。本方法并不更改连接符的尺寸和位置:连接符的终点仍保留在原来所连接的连接站点的位置,但与该连接站点之间不再有连接。可用 BeginDisconnect 方法使连接符的起点与某一图形脱离。


expression.EndDisconnect


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


示例


本示例向 myDocument 中添加了两个矩形,用连接符将这两个矩形连接起来,并自动沿着最短路径选择连接符,然后又断开连接符与矩形的连接。


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, 0, 0)
with c.ConnectorFormat
.BeginConnect firstRect, 1
.EndConnect secondRect, 1
c.RerouteConnections
.BeginDisconnect
.EndDisconnect
End With

上一篇:EndConnect 方法

下一篇:EndReview 方法

发布评论

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

支持 Markdown 语法,需要帮助?

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