Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Une el final del conector especificado a una forma específica.
Sintaxis
expresión. EndConnect (ConnectedShape, ConnectionSite)
expresión Variable que representa un objeto ConnectorFormat .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| ConnectedShape | Obligatorio | Shape | La forma a la que Microsoft Publisher une el final del conector. El objeto Shape especificado debe ser de la misma colección Shapes que el conector. |
| ConnectionSite | Obligatorio | Long | Un sitio de conexión en la forma especificada por ConnectedShape. Debe ser un entero entre 1 y el entero devuelto por la propiedad ConnectionSiteCount de la forma especificada. Los sitios de conexión se numeran comenzando desde la parte superior de la forma especificada y hacia la izquierda alrededor de la forma. Si desea que el conector busque automáticamente la ruta más corta entre las dos formas que conecta, especifique cualquier entero válido para este argumento y, a continuación, utilice el método RerouteConnections después de que el conector esté unido a ambos extremos de las formas. |
Observaciones
Si ya existe una conexión entre el final del conector y otra forma, dicha conexión se interrumpe. Si el final del conector no está colocado todavía en el sitio de conexión especificado, este método mueve el final del conector al sitio de conexión, y ajusta el tamaño y la posición del conector.
Cuando se une un conector a un objeto, el tamaño y la posición del conector se ajustan automáticamente, si es necesario.
Utilice el método BeginConnect para unir el principio del conector a una forma.
Ejemplo
En este ejemplo se agregan dos rectángulos a la primera página de la publicación activa que se conectan con un conector curvo. Tenga en cuenta que el método RerouteConnections invalida los valores que se proporcionan para los argumentos ConnectionSite usados con los métodos BeginConnect y 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
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.