Compartir a través de

Método Shapes.AddConnector (PowerPoint)

  • Artículo

Crea un conector. Devuelve un objeto Shape que representa el nuevo conector. Cuando se agrega un conector, no está conectado a nada. Use los métodos BeginConnect y EndConnect para unir el principio y el final de un conector a otras formas del documento.

Sintaxis

expresión. AddConnector (Type, BeginX, BeginY, EndX, EndY)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Type Obligatorio MsoConnectorType Tipo de conector.
BeginX Obligatorio Single Posición horizontal, medida en puntos, del extremo inicial del conector en relación con el borde izquierdo de la diapositiva.
BeginY Obligatorio Single Posición vertical, medida en puntos, del extremo inicial del conector en relación con el borde superior de la diapositiva.
EndX Obligatorio Single Posición horizontal, medida en puntos, del extremo final del conector en relación con el borde izquierdo de la diapositiva.
Endy Obligatorio Single Posición vertical, medida en puntos, del extremo final del conector en relación con el borde superior de la diapositiva.

Valor devuelto

Forma

Comentarios

Cuando se une un conector a una forma, el tamaño y la posición del conector se ajustan automáticamente, si es necesario. Por lo tanto, si va a adjuntar un conector a otras formas, la posición y las dimensiones que especifique al agregar el conector son irrelevantes.

Ejemplo:

En este ejemplo se agregan dos rectángulos a myDocument y se unen con un conector curvo. Observe que cuando se une el conector a los rectángulos, el tamaño y la posición del conector se ajustan automáticamente; por lo tanto, la posición y las dimensiones especificadas al agregar la llamada son irrelevantes (las dimensiones deben ser distintas de cero).

Sub NewConnector() 
 
    Dim shpShapes As Shapes 
    Dim shpFirst As Shape 
    Dim shpSecond As Shape 
 
    Set shpShapes = ActivePresentation.Slides(1).Shapes 
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=100, Top:=50, Width:=200, Height:=100) 
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=300, Top:=300, Width:=200, Height:=100) 
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat 
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1 
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1 
        .Parent.RerouteConnections 
    End With 
 
End Sub

Consulte también

Objeto Shapes

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.