Método ConnectorFormat.BeginConnect (Publisher)

  • Artigo

Conecta o início do conector especificado a uma forma específica.

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 Shape A forma à qual o Microsoft Publisher conecta o início do conector. O objeto Shape especificado deve ser no mesmo conjunto de formas 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.

Sites de conexão são numerados começando pela parte superior da forma especificada em sentido anti-horário ao redor da forma. 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

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 ainda não estiver posicionado no site de conexão especificado, este método moverá o início do conector para o site de conexão e ajustará o tamanho e a posição do conector.

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

Use o método EndConnect para anexar a extremidade do conector a uma forma.

Exemplo

Este exemplo adiciona dois retângulos à primeira página da publicação ativa e os liga com um conector em curva. Observe que o método RerouteConnections substitui os valores fornecidos para os argumentos ConnectionSite usados com os métodos BeginConnect e EndConnect .

Dim shpRect1 As Shape 
Dim shpRect2 As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add two new rectangles. 
 Set shpRect1 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpRect2 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 
 ' Add a new curved connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 
 ' Connect the new connector to the two rectangles. 
 .BeginConnect ConnectedShape:=shpRect1, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpRect2, ConnectionSite:=1 
 
 ' Reroute the connector to create the shortest path. 
 .Parent.RerouteConnections 
 End With 
 
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.