Método Shapes.AddLine (Project)

Adiciona uma linha a um relatório e retorna um objeto Shape 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 inicial, em relação à borda esquerda do relatório.
InícioY Obrigatório Single A posição vertical (em pontos) do ponto inicial, em relação à borda superior do relatório.
EndX Obrigatório Single A posição horizontal (em pontos) do ponto de extremidade, em relação à borda esquerda do relatório.
EndY Obrigatório Single A posição vertical (em pontos) do ponto final, em relação à borda 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, use a propriedade Shape.Line .

Exemplo

O exemplo a seguir 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

Formas ObjetoForma ObjetoLinha Propriedade

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.

  • Last updated on