Compartilhar via

Propriedade ConnectorFormat.BeginConnectedShape (Publisher)

  • Artigo

Retorna um objeto Shape que representa a forma à qual o início do conector especificado está vinculado.

Sintaxe

expressão. BeginConnectedShape

Expressão Uma variável que representa um objeto ConnectorFormat .

Valor de retorno

Forma

Comentários

Se o início do conector especificado não estiver vinculado a uma forma, ocorrerá um erro.

Use a propriedade EndConnectedShape para retornar a forma vinculada ao final de um conector.

Exemplo

Este exemplo assume que a primeira página na publicação ativa já contém duas formas vinculadas por um conector chamado Conn1To2. O código adiciona um retângulo e um conector à primeira página. O início do novo conector será vinculado ao mesmo local de conexão como o início do conector chamado Conn1To2, e o final do novo conector será vinculado ao local de conexão um no novo retângulo.

Dim shpNew As Shape 
Dim intSite As Integer 
Dim shpOld As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add new rectangle. 
 Set shpNew = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=450, Top:=190, Width:=200, Height:=100) 
 
 ' Add new connector. 
 .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=10, EndY:=10) _ 
 .Name = "Conn1To3" 
 
 ' Get connection site number of old shape, and set 
 ' reference to old shape. 
 With .Item("Conn1To2").ConnectorFormat 
 intSite = .BeginConnectionSite 
 Set shpOld = .BeginConnectedShape 
 End With 
 
 ' Connect new connector to old shape and new rectangle. 
 With .Item("Conn1To3").ConnectorFormat 
 .BeginConnect ConnectedShape:=shpOld, _ 
 ConnectionSite:=intSite 
 .EndConnect ConnectedShape:=shpNew, _ 
 ConnectionSite:=1 
 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.