Propiedad ConnectorFormat.BeginConnectionSite (Publisher)

Devuelve un Long que indica el sitio de conexión al que está conectado el principio de un conector. Solo lectura.

Sintaxis

expresión. BeginConnectionSite

expresión Variable que representa un objeto ConnectorFormat .

Valor devuelto

Long

Observaciones

Si el principio del conector especificado no está unido a la forma, esta propiedad provocará un error.

Utilice la propiedad EndConnectionSite para devolver el sitio al que está conectado el extremo de un conector.

Ejemplo

En este ejemplo se supone que la primera página de la publicación activa ya contiene dos formas unidas por el conector Conn1To2. El código agrega un rectángulo y un conector a la primera página. El principio del nuevo conector se unirá al mismo sitio de conexión que el principio del conector Conn1To2, y el final del nuevo conector se unirá al sitio de conexión uno del nuevo rectá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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.