Método Report.Delete (Project)

Elimina o relatório.

Sintaxe

expressão. Eliminar

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

Valor de retorno

Nothing

Exemplo

O exemplo seguinte determina se existe um relatório com o nome Relatório 1 e, em caso afirmativo, elimina o relatório. Se o relatório estiver ativo, altere para outra vista antes de o eliminar; caso contrário, o Project mostra o erro de tempo de execução 1004: a tabela "Relatório 1" está a ser utilizada e não pode ser copiada ou eliminada.

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.