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 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
más sencilla.BeginConnect (ConnectedShape, ConnectionSite)
expresión Variable que representa un objeto ConnectorFormat .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Forma conectada | Obligatorio | Shape | Para unir el principio del conector a la forma. El objeto Shape especificado debe estar en la misma colección de Shapes que el conector. |
| Sitio de conexión | 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 más corta entre las dos formas que conecta, especifique cualquier entero válido para este argumento y, a continuación, use el método RerouteConnections después de que el conector se adjunte a las 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 mediante un conector curvado. Observe que el método RerouteConnections hace que sea irrelevante qué valores proporcione para los argumentos ConnectionSite utilizados 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.