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.