ShapeRange.RerouteConnections method (Excel) (Método ShapeRange.RerouteConnections [Excel])

Este método volta a eliminar todas as conexões anexadas à forma especificada; Se a forma especificada for uma conexão, é reencaminhada.

Sintaxe

expressão. RerouteConnections

expressão Uma variável que representa um objeto ShapeRange .

Comentários

Redireciona os conectores para que eles tomem o caminho mais curto possível entre as formas que conectam. Para fazer isso, o método RerouteConnections pode desconectar as extremidades de um conector e reconecte-los para sites de conexão diferentes nas formas conectadas.

Se esse método for aplicado a um conector, somente esse conector será redirecionado. Se esse método for aplicado a uma forma conectada, todos os conectores para essa forma serão redirecionados.

Exemplo

Este exemplo adiciona dois retângulos a myDocument, conecta-os com um conector curvo, e redireciona o conector para que tome o menor caminho possível entre os dois retângulos.

Tenha em atenção que o método RerouteConnections ajusta o tamanho e a posição do conector e determina a que sites de ligação se anexa, pelo que os valores que especifica inicialmente para os argumentos ConnectionSite utilizados com os métodos BeginConnect e EndConnect são irrelevantes.

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 newConnector = s.AddConnector(msoConnectorCurve, _ 
 0, 0, 100, 100) 
With newConnector.ConnectorFormat 
 .BeginConnect firstRect, 1 
 .EndConnect secondRect, 1 
End With 
newConnector.RerouteConnections

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.