Método ConnectorFormat.BeginConnect (Excel)
Une el principio del conector especificado a una forma específica. Si ya existe una conexión entre el principio del conector y otra forma, dicha conexión se interrumpe.
Si el principio del conector ya no está situado en el sitio de conexión especificado, este método mueve el principio del conector al sitio de conexión y ajusta el tamaño y la posición del conector.
Utilice el método EndConnect para unir el final del conector a una forma.
Sintaxis
expresión. BeginConnect (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 principio del conector a la forma. El objeto Shape especificado debe estar en 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. Si desea que el conector encuentre automáticamente la ruta de acceso más corta entre las dos formas que se conecta, especifique cualquier entero válido para este argumento y, a continuación, use el método RerouteConnections después de que el conector esté asociado a formas en ambos extremos. |
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.