PowerPoint VBA教程:BeginDisconnect方法

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

expression.BeginDisconnect

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教程:BeginConnect方法 下页:PowerPoint VBA教程:BuildFreeform方法

PowerPoint VBA教程:BeginDisconnect方法

PowerPoint VBA教程:BuildFreeform方法 PowerPoint VBA教程:CanCheckIn方法
PowerPoint VBA教程:CanCheckOut方法 PowerPoint VBA教程:Cell方法
PowerPoint VBA教程:ChangeCase方法 PowerPoint VBA教程:Characters方法
PowerPoint VBA教程:CheckIn方法 PowerPoint VBA教程:CheckOut方法
PowerPoint VBA教程:Clear方法 PowerPoint VBA教程:ClearAll方法
PowerPoint VBA教程:Clone方法 PowerPoint VBA教程:CloneNode方法
PowerPoint VBA教程:Close方法 PowerPoint VBA教程:Colors方法
PowerPoint VBA教程:Convert方法 PowerPoint VBA教程:ConvertToAfterEffect方法
PowerPoint VBA教程:ConvertToAnimateBackground方法 PowerPoint VBA教程:ConvertToAnimateInReverse方法
PowerPoint VBA教程:ConvertToBuildLevel方法 PowerPoint VBA教程:ConvertToShape方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号