Método Shapes.AddConnector (Project)

Crea un conector y devuelve un objeto Shape que representa el nuevo conector.

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. Puede ser una de las siguientes constantes: msoConnectorElbow, msoConnectorTypeMixed, msoConnectorCurve o msoConnectorStraight.
BeginX	Obligatorio	Single	Posición horizontal (en puntos) del punto inicial del conector, en relación con la esquina superior izquierda del documento.
BeginY	Obligatorio	Single	Posición vertical (en puntos) del punto inicial del conector.
EndX	Obligatorio	Single	Posición horizontal (en puntos) del punto final del conector.
EndY	Obligatorio	Single	Posición vertical (en puntos) del punto final del conector.
Tipo	Obligatorio	MSOCONNECTORTYPE
BeginX	Obligatorio	FLOAT
BeginY	Obligatorio	FLOAT
EndX	Obligatorio	FLOAT
EndY	Obligatorio	FLOAT
Nombre	Obligatorio/opcional	Tipo de datos	Descripción

Valor devuelto

Shape

Observaciones

Nota:

En Project, los métodos para adjuntar el principio y el final de un conector a otras formas del informe (ConnectorFormat.BeginConnect y ConnectorFormat.EndConnect) no funcionan. Use solo los parámetros AddConnector para colocar el conector. Para obtener más información, vea la propiedad ConnectorFormat .

Ejemplo

En el ejemplo siguiente se crea un informe que contiene dos formas de nube y, a continuación, se agrega una línea de conector curvado de color verde azul que tiene dos puntos de ancho.

Sub ConnectClouds()
    Dim shapeReport As Report
    Dim reportName As String
    Dim connectorShape As shape
    
    ' Add a report.
    reportName = "Cloud report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    Set connectorShape = shapeReport.Shapes.AddConnector(msoConnectorCurve, 80, 80, 130, 200)
        
    With connectorShape
        .Line.Weight = 2
        .Line.ForeColor.RGB = &HAAFF00
    End With
End Sub

Vea también

Shape ObjectConnectorFormat (propiedadAutoShapeType) propiedadMsoConnectorType

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.