Excel VBA教程:BeginDisconnect方法

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

expression.BeginDisconnect

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

Excel VBA教程:BeginDisconnect方法·示例

本示例向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教程:BeginConnect方法 下页:Excel VBA教程:BorderAround方法

Excel VBA教程:BeginDisconnect方法

Excel VBA教程:BorderAround方法 Excel VBA教程:BreakLink方法
Excel VBA教程:BringToFront方法 Excel VBA教程:BuildFreeform方法
Excel VBA教程:Calculate方法 Excel VBA教程:CalculatedFields方法
Excel VBA教程:CalculatedItems方法 Excel VBA教程:CalculateFull方法
Excel VBA教程:CalculateFullRebuild方法 Excel VBA教程:CancelRefresh方法
Excel VBA教程:CanCheckIn方法 Excel VBA教程:CanCheckOut方法
Excel VBA教程:CentimetersToPoints方法 Excel VBA教程:ChangeFileAccess方法
Excel VBA教程:ChangeLink方法 Excel VBA教程:ChangePassword方法
Excel VBA教程:ChangeScenario方法 Excel VBA教程:Characters方法
Excel VBA教程:ChartGroups方法 Excel VBA教程:ChartObjects方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号