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 de partida, em relação à borda esquerda do relatório.
InícioY	Obrigatório	Single	A posição vertical (em pontos) do ponto de partida, 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 de extremidade, 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 com traço 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 Object

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.