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.