Método ConnectorFormat.EndConnect (Publisher)
Anexa o final do conector especificado a uma forma específica.
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 à qual o Microsoft Publisher conecta o fim 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 final do conector e outra forma, essa conexão será desfeito. Se o fim do conector ainda não estiver posicionado no site de conexão especificado, este método moverá o fim 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 BeginConnect para anexar o início 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.