Método Report.Delete (Projeto)

Exclui o relatório.

Sintaxe

mais simples. Excluir

expressão Uma variável que representa um objeto 'Report'.

Valor de retorno

Nothing

Exemplo

O exemplo a seguir determina se existe um relatório chamado Relatório 1 e, nesse caso, exclui o relatório. Se o relatório estiver ativo, altere para outro modo de exibição antes de excluí-lo; caso contrário, o Project mostra o erro de tempo de execução 1004: A tabela "Relatório 1" está em uso e não pode ser copiada nem excluída.

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

Objeto Report

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.