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

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.