Shapes.AddLine method (Project) (Método Shapes.AddLine [Project])

  • Artigo

Adiciona uma linha a um relatório e devolve um objeto Forma que representa a linha.

Sintaxe

expression. AddLine (BeginX,Beginy,EndX,Endy)

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
InícioX Obrigatório Single A posição horizontal (em pontos) do ponto de partida, relativamente à margem esquerda do relatório.
InícioY Obrigatório Single A posição vertical (em pontos) do ponto de partida, em relação à margem superior do relatório.
EndX Obrigatório Single A posição horizontal (em pontos) do ponto final, relativa à margem esquerda do relatório.
EndY Obrigatório Single A posição vertical (em pontos) do ponto final, relativa à margem superior do relatório.
InícioX Obrigatório FLOAT
InícioY Obrigatório FLOAT
EndX Obrigatório FLOAT
EndY Obrigatório FLOAT
Nome Obrigatório/Opcional Tipo de dados Descrição

Valor de retorno

Formato

Comentários

Para formatar a linha, utilize a propriedade Shape.Line .

Exemplo

O exemplo seguinte cria uma linha tracejada violeta com uma seta no 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

Confira também

Propriedade Shapes ObjectShape ObjectLine

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.