Método Reports.Add (Project)

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

Sintaxe

expressão. Add(Name)

Expressão Uma variável que representa um objeto 'Reports'.

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, você pode usar métodos no objeto Shapes , como AddChart e AddTable.

Exemplos

O exemplo a seguir adiciona um relatório vazio chamado Relatório 1 e exibe o relatório.

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

Para excluir um relatório, você deve alterar para uma exibição diferente, como no exemplo a seguir:

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

Formas de objeto de relatório deobjeto de relatórios de relatórios

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.