Reports.Add method (Project) (Método Reports.Add [Projeto])

Adiciona um relatório personalizado à coleção Relatórios .

Sintaxe

expressão. Adicionar(Nome)

expressão Uma variável que representa um objeto "Relatórios".

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	O nome do relatório.
Name	Obrigatório	String

Valor de retorno

Report

O objeto de relatório personalizado que é adicionado.

Comentários

O novo relatório está vazio; não contém formas como tabelas ou gráficos. Para adicionar formas ao relatório, pode utilizar métodos no objeto Formas , como AddChart e AddTable.

Exemplos

O exemplo seguinte adiciona um relatório vazio com o nome Relatório 1 e apresenta o relatório.

Sub AddReport()
    ActiveProject.Reports.Add "Report 1"
End Sub

Para eliminar um relatório, tem de mudar para uma vista diferente, tal como no exemplo seguinte:

Sub DeleteAReport()
    Dim reportName As String
    
    reportName = "Report 1"
    
    If ActiveProject.Reports.IsPresent(reportName) Then
        ' To delete the active report, change to another view.
        ViewApplyEx Name:="&Gantt Chart"
        
        ActiveProject.Reports(reportName).Delete
    Else
        MsgBox Prompt:="No report name: " & reportName, Title:="Report delete error"
    End If
End Sub

Confira também

Reporta formas de objeto de relatório de objetode objeto

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.