Compartilhar via

Método ConnectorFormat.BeginDisconnect (Publisher)

  • Artigo

Desliga o início do conector especificado da forma à qual está ligado.

Sintaxe

expressão. Begindisconnect

Expressão Uma variável que representa um objeto ConnectorFormat .

Comentários

Esse método não altera o tamanho ou a posição do conector; O início do conector permanece posicionado em um site de conexão, mas não está mais conectado.

Use o método EndDisconnect para desconectar o fim do conector de uma forma.

Exemplo

Este exemplo adiciona dois retângulos à primeira página da publicação ativa, liga-os a um conector, redireciona automaticamente o conector pelo caminho mais curto e desliga o conector dos retângulos.

Dim shpRect1 As Shape 
Dim shpRect2 As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add two new rectangles. 
 Set shpRect1 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpRect2 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 
 ' Add a new connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=0, EndY:=0) _ 
 .ConnectorFormat 
 
 ' Connect the new connector to the two rectangles. 
 .BeginConnect ConnectedShape:=shpRect1, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpRect2, ConnectionSite:=1 
 
 ' Reroute the connector to create the shortest path. 
 .Parent.RerouteConnections 
 
 ' Disconnect the new connector from the rectangles but 
 ' leave in place. 
 .BeginDisconnect 
 .EndDisconnect 
 End With 
 
End With

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.