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
Comenzar Obligatorio Single La posición horizontal (en puntos) del punto de inicio, con respecto al borde izquierdo del informe.
El comienzo Obligatorio Single La posición vertical (en puntos) del punto de inicio, con respecto al borde superior del informe.
EndX Obligatorio Single La posición horizontal (en puntos) del punto final, con respecto al borde izquierdo del informe.
Fin Obligatorio Single La posición vertical (en puntos) del punto final, con respecto al borde superior del informe.
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

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

Ejemplo

El siguiente ejemplo 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

Formas ObjetoForma ObjetoLínea Propiedad

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