项目) (报表对象

项目
04/07/2023

表示 Project 中可以包含 Office 艺术对象（如 Shape、 ReportTable 或 Chart）的报表。 Report 对象是 Reports 集合的成员。

备注

注意

未实现 Report 对象的宏录制。也就是说，在 Project 中记录宏并手动添加报表或编辑报表时，不会记录添加和编辑报表的步骤。

示例

若要创建报表，请使用 Reports.Add 方法。例如，以下命令创建名为“我的新报表”的报表。

ActiveProject.Reports.Add "My New Report"

运行命令时，Project 将创建报表，然后将视图更改为“报表工具”下功能区的“设计”选项卡。使用功能区上的设计工具项向报表添加图像、形状、图表、表格或文本框。或者，可以使用 Shape、 ShapeRange、 Chart 和 ReportTable 对象的成员以编程方式添加和编辑报表中的项。

图 1. 在 Project 中创建报表

在 Project 中创建报表若要删除报表，必须首先关闭活动报表视图。例如，在功能区的“ 设计 ”选项卡上的“ 视图 ”组中，在“ 报表 ”下拉菜单中选择其他报表。然后，在功能区的“报表”组中，选择“管理”下拉菜单中的“组织者”。在“ 管理器 ”对话框中，选择“ 报表 ”选项卡，在项目窗格中选择“ 我的新报表 ”，然后选择“ 删除”。

若要以编程方式删除活动报表，请运行以下宏。

Sub DeleteTheReport()
    Dim i As Integer
    Dim reportName As String
    
    reportName = "My New Report"
    
    ' To delete the active report, change to another view.
    ViewApplyEx Name:="&Gantt Chart"
    
    ActiveProject.Reports(reportName).Delete
End Sub