Método Shapes.AddLine (Project)

Agrega una línea a un informe y devuelve un objeto Shape que representa la línea.

Sintaxis

expresión. AddLine (BeginX,BeginY,EndX,EndY)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
BeginX	Obligatorio	Single	Posición horizontal (en puntos) del punto inicial, en relación con el borde izquierdo del informe.
BeginY	Obligatorio	Single	Posición vertical (en puntos) del punto inicial, en relación con el borde superior del informe.
EndX	Obligatorio	Single	Posición horizontal (en puntos) del punto final, en relación con el borde izquierdo del informe.
EndY	Obligatorio	Single	Posición vertical (en puntos) del punto final, en relación con el borde superior del informe.
BeginX	Obligatorio	FLOAT
BeginY	Obligatorio	FLOAT
EndX	Obligatorio	FLOAT
EndY	Obligatorio	FLOAT
Nombre	Obligatorio/opcional	Tipo de datos	Descripción

Valor devuelto

Shape

Observaciones

Para dar formato a la línea, use la propiedad Shape.Line .

Ejemplo

En el ejemplo siguiente se crea una línea discontinua violeta con una flecha al final.

Sub AddBigArrow()
    Dim shapeReport As Report
    Dim reportName As String
    Dim lineShape As shape
    
    ' Add a report.
    reportName = "Line report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Set lineShape = shapeReport.Shapes.AddLine(20, 50, 320, 100)
    
    With lineShape.Line
        .DashStyle = msoLineDashDot
        .Weight = 3
        .EndArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadWidth = msoArrowheadWidthMedium
        .ForeColor.RGB = &HFF0090
    End With
End Sub

Vea también

Shapes (propiedad de línea de objeto de forma de objeto)

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.