Método ConnectorFormat.EndConnect (Excel)

Anexa o final do conector especificado a uma forma específica. Se já houver uma conexão entre o final do conector e outra forma, essa conexão será desfeito.

Se o final do conector não estiver posicionado no site de conexão especificado, esse método Move o final do conector para o site de conexão e ajusta o tamanho e posição do conector.

Use o método BeginConnect para anexar o início do conector a uma forma.

Sintaxe

expressão. EndConnect (ConnectedShape, ConnectionSite)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ConnectedShape	Obrigatório	Shape	A forma para anexar a extremidade do conector. O objeto Shape especificado deve ser no mesmo conjunto de formas que o conector.
ConnectionSite	Obrigatório	Long	Deve ser um inteiro entre 1 e o inteiro retornado pela propriedade ConnectionSiteCount da forma especificada. Se desejar que o conector encontre automaticamente o caminho mais curto entre as duas formas de se conectar, especifique qualquer número inteiro válido para este argumento e, em seguida, use o método RerouteConnections depois que o conector é anexado às formas em ambas as extremidades.

Comentários

Quando você anexa um conector a um objeto, o tamanho e posição do conector são ajustados automaticamente, se necessário.

Exemplo

Este exemplo adiciona dois retângulos ao myDocument e os conecta a um conector curvo. Observe que o método RerouteConnections torna irrelevante quais valores você fornece para os argumentos ConnectionSite usados com os métodos BeginConnect e EndConnect .

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 c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) 
With c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
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.