Objeto ConnectorFormat (Excel)

Contém propriedades e métodos que se aplicam a conectores.

Comentários

Um conector é uma linha que anexa duas outras formas em pontos chamados sites de conexão. Se você reorganizar formas que estão conectadas, a geometria do conector será ajustada automaticamente para que as formas permaneçam conectadas.

Geralmente, os sites de conexão são numerados conforme as regras apresentadas na tabela a seguir.

Tipo de forma Esquema de numeração de sites de conexão
AutoFormas, WordArt, figuras e objetos OLE Os sites de conexão são numerados começando pela parte superior e seguindo o sentido anti-horário.
Formas livres Os sites de conexão são os vértices e correspondem aos números de vértice.

Use a propriedade ConnectorFormat do objeto Shape para retornar um objeto ConnectorFormat . Use os métodos BeginConnect e EndConnect para anexar as extremidades do conector a outras formas no documento. Use o método RerouteConnections do objeto Shape para localizar automaticamente o caminho mais curto entre as duas formas conectadas pelo conector. Use a propriedade Connector para ver se uma forma é um conector.

Observação

Você atribui um tamanho e uma posição ao adicionar um conector à coleção Shapes , mas o tamanho e a posição são ajustados automaticamente quando você anexa o início e o final do conector a outras formas da coleção. Portanto, se você pretende anexar um conector a outras formas, o tamanho e a posição iniciais especificados serão irrelevantes.

Da mesma forma, você especifica quais sites de conexão de uma forma para anexar o conector a quando você anexa o conector, mas o uso do método RerouteConnections depois que o conector é anexado pode alterar a quais sites de conexão o conector anexado, tornando sua escolha original de sites de conexão irrelevante.

Exemplo

Para descobrir os números correspondentes a cada site de conexão em uma forma complexa, você pode fazer um teste com a forma enquanto o gravador de macro está ativado e examinar o código gravado, ou pode criar uma forma, selecioná-la e executar o exemplo a seguir. Este código irá numerar cada site de conexão e anexar um conector a ele.

Set mainshape = ActiveWindow.Selection.ShapeRange(1) 
With mainshape 
 bx = .Left + .Width + 50 
 by = .Top + .Height + 50 
End With 
With ActiveSheet 
 For j = 1 To mainshape.ConnectionSiteCount 
 With .Shapes.AddConnector(msoConnectorStraight, _ 
 bx, by, bx + 50, by + 50) 
 .ConnectorFormat.EndConnect mainshape, j 
 .ConnectorFormat.Type = msoConnectorElbow 
 .Line.ForeColor.RGB = RGB(255, 0, 0) 
 l = .Left 
 t = .Top 
 End With 
 With .Shapes.AddTextbox(msoTextOrientationHorizontal, _ 
 l, t, 36, 14) 
 .Fill.Visible = False 
 .Line.Visible = False 
 .TextFrame.Characters.Text = j 
 End With 
 Next j 
End With

O exemplo a seguir adiciona dois retângulos a myDocument e os conecta com um conector curvo.

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

Métodos

Propriedades

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.