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.