Método ShapeRange.RerouteConnections (PowerPoint)
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.
Sintaxe
expressão. RerouteConnections
Expressão Uma variável que representa um objeto ShapeRange .
Comentários
Este método redireciona todos os conectores anexados à forma especificada; se a forma especificada for um conector, este será redirecionado.
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. Observe que o método RerouteConnections ajusta o tamanho e posição do conector e determina qual Conectando sites anexa, portanto os valores inicialmente especificados para os argumentos ConnectionSite usados com o BeginConnect e EndConnect métodos são irrelevantes.
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)
Set newConnector = s _
.AddConnector(msoConnectorCurve, 0, 0, 100, 100)
With newConnector.ConnectorFormat
.BeginConnect firstRect, 1
.EndConnect secondRect, 1
End With
newConnector.RerouteConnections
Confira também
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.