PowerPoint VBA教程:EndDisconnect方法

将指定的连接符终点与所连接的形状断开。该方法不改变该连接符的大小或位置。该连接符终点仍然在连接位置上,但已不再相连。使用BeginDisconnect方法将连接符的起点与形状断开。

expression.EndDisconnect

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

VBA示例

本示例向当前演示文稿的第一张幻灯片中添加两个矩形框,并用连接符连接它们,且自动地把连接符的路径修改为最短路径,然后断开连接符与矩形框之间的连接。


Set myDocument = ActivePresentation.Slides(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
With s.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat
    .BeginConnect firstRect, 1
    .EndConnect secondRect, 1
    .Parent.RerouteConnections
    .BeginDisconnect
    .EndDisconnect
End With

上页:PowerPoint VBA教程:EndConnect方法 下页:PowerPoint VBA教程:EndNamedShow方法

PowerPoint VBA教程:EndDisconnect方法

PowerPoint VBA教程:EndNamedShow方法 PowerPoint VBA教程:EndReview方法
PowerPoint VBA教程:EraseDrawing方法 PowerPoint VBA教程:Exit方法
PowerPoint VBA教程:Export方法 PowerPoint VBA教程:Find方法
PowerPoint VBA教程:FindBySlideID方法 PowerPoint VBA教程:FindFirstAnimationFor方法
PowerPoint VBA教程:FindFirstAnimationForClick方法 PowerPoint VBA教程:First方法
PowerPoint VBA教程:FitToPage方法 PowerPoint VBA教程:Flip方法
PowerPoint VBA教程:Follow方法 PowerPoint VBA教程:FollowHyperlink方法
PowerPoint VBA教程:GotoNamedShow方法 PowerPoint VBA教程:GotoSlide方法
PowerPoint VBA教程:Group方法 PowerPoint VBA教程:Help方法
PowerPoint VBA教程:ImportFromFile方法 PowerPoint VBA教程:IncrementBrightness方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号