Excel VBA教程:EndDisconnect方法

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

expression.EndDisconnect

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

Excel VBA教程:EndDisconnect方法·示例

本示例向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

上页:Excel VBA教程:EndConnect方法 下页:Excel VBA教程:EndReview方法

Excel VBA教程:EndDisconnect方法

Excel VBA教程:EndReview方法 Excel VBA教程:ErrorBar方法
Excel VBA教程:Evaluate方法 Excel VBA教程:ExclusiveAccess方法
Excel VBA教程:Execute方法 Excel VBA教程:ExecuteExcel4Macro方法
Excel VBA教程:Export方法 Excel VBA教程:Extend方法
Excel VBA教程:FillAcrossSheets方法 Excel VBA教程:FillDown方法
Excel VBA教程:FillLeft方法 Excel VBA教程:FillRight方法
Excel VBA教程:FillUp方法 Excel VBA教程:Find方法
Excel VBA教程:FindFile方法 Excel VBA教程:FindNext方法
Excel VBA教程:FindPrevious方法 Excel VBA教程:Flip方法
Excel VBA教程:Follow方法 Excel VBA教程:FollowHyperlink方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号