Compartir a través de

Método ConnectorFormat.BeginConnect (PowerPoint)

  • Artículo

Une el principio del conector especificado a una forma específica.

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 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. 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

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.

Cuando se une un conector a un objeto, el tamaño y la posición del conector se ajustan automáticamente, en caso necesario.

Ejemplo:

En este ejemplo se agregan dos rectángulos a la primera diapositiva de la presentación activa y se conectan con un conector curvado. Observe que el método RerouteConnections, son irrelevantes los valores que proporcione para los argumentos ConnectionSite utilizados con los métodos BeginConnect y EndConnect.

Set myDocument = ActivePresentation.Slides(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
    .Parent.RerouteConnections
End With

Consulte también

Objeto ConnectorFormat

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.