Método Shapes.AddConnector (proyecto)

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

Sintaxis

más sencilla.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.
Comenzar Obligatorio Single La posición horizontal (en puntos) del punto inicial del conector, con respecto a la esquina superior izquierda del documento.
El comienzo Obligatorio Single La posición vertical (en puntos) del punto inicial del conector.
EndX Obligatorio Single La posición horizontal (en puntos) del punto final del conector.
Fin Obligatorio Single La posición vertical (en puntos) del punto final del conector.
Tipo Obligatorio MSOCONNECTORTYPE
Comenzar Obligatorio FLOAT
El comienzo Obligatorio FLOAT
EndX Obligatorio FLOAT
Fin Obligatorio FLOAT
Nombre Obligatorio/opcional Tipo de datos Descripción

Valor devuelto

Shape

Comentarios

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 conexión curvada azul verdosa de 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

Forma ObjetoForma ObjetoConnectorFormatPropiedad AutoShapeType 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.

  • Last updated on