Compartilhar via

Objeto ConnectorFormat (Publisher)

  • Artigo

Contém propriedades e métodos que se aplicam a conectores. Um conector é uma linha que conecta duas outras formas a 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.

Comentários

Use a propriedade ConnectorFormat da forma objeto ou ShapeRange coleção, para retornar um objeto ConnectorFormat.

Use o BeginConnect e EndConnect métodos do objeto ConnectorFormat para anexar as extremidades do conector a outras formas na publicação.

Use o RerouteConnections método do objeto Shape e da coleção ShapeRange para encontrar automaticamente o caminho mais curto entre as duas formas conectadas pelo conector.

Use a propriedade Connector para determinar se uma forma é um conector.

Observação

Observe que você atribui um tamanho e uma posição quando adiciona um conector à coleção Shapes, mas o tamanho e a posição são ajustados automaticamente quando você anexa o início e o fim do conector a outras formas na 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

O exemplo a seguir adiciona dois retângulos à publicação ativa e os conecta com um conector curvo.

Dim shpAll As Shapes 
Dim firstRect As Shape 
Dim secondRect As Shape 
 
Set shpAll = ActiveDocument.Pages(1).Shapes 
Set firstRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
Set secondRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 


With shpAll.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
 BeginY:=0, EndX:=0, EndY:=0).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 .Parent.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.