Método ConnectorFormat.EndConnect (Excel)
Une el final del conector especificado a una forma específica. Si ya existe una conexión entre el final del conector y otra forma, dicha conexión se interrumpe.
Si el final del conector ya no está situado 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.
Utilice el método BeginConnect para unir el principio del conector a una forma.
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 | Para unir el final del conector a la forma. El objeto Shape especificado debe ser de la misma colección Shapes que el conector. |
| ConnectionSite | Obligatorio | Long | Debe ser un entero entre 1 y el entero devuelto por la propiedad ConnectionSiteCount de la forma especificada. 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. |
Comentarios
Al unir un conector a un objeto, su tamaño y posición se ajustan automáticamente, si fuera necesario.
Ejemplo:
En este ejemplo se agregan dos rectángulos a myDocument y se conectan con un conector curvado. Observe que el método RerouteConnections hace irrelevante los valores que se proporcionan para los argumentos ConnectionSite usados con los métodos BeginConnect y EndConnect .
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100)
With c.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
c.RerouteConnections
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.