Método ConnectorFormat.BeginConnect (Excel)
Conecta o início do conector especificado a uma forma específica. Se já houver uma conexão entre o início do conector e outra forma, essa conexão será desfeito.
Se o início do conector não estiver posicionado no site de conexão especificado, esse método Move o início do conector para o site de conexão e ajusta o tamanho e posição do conector.
Use o método EndConnect para anexar a extremidade do conector a uma forma.
Sintaxe
expressão. BeginConnect (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 | Formato | A forma para anexar o início do conector. O objeto Shape especificado deve estar na mesma coleção Shapes que o conector. |
| ConnectionSite | Obrigatório | Long | Um site de conexão na forma especificada pelo ConnectedShape. Deve ser um inteiro entre 1 e o inteiro retornado pela propriedade ConnectionSiteCount da forma especificada. Se você quiser que o conector encontre automaticamente o caminho mais curto entre as duas formas que ele se conecta, especifique qualquer inteiro válido para esse argumento e use o método RerouteConnections depois que o conector for anexado a 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.