Application.ApplyReportLayoutTemplate 方法 (Project)

将指定的报表模板应用于活动报表。

语法

expression。 ApplyReportLayoutTemplate (TemplateId)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
TemplateId	可选	PjReportLayoutTemplateId	指定报表的类型;可以是以下常量之一： pjReportLayoutComparison、 pjReportLayoutTitleAndChart、 pjReportLayoutTitleAndTable 或 pjReportLayoutTitleOnly。
TemplateId	可选	PJREPORTLAYOUTTEMPLATEID

返回值

Boolean

说明

对于现有报表， ApplyReportLayoutTemplate 方法将指定的报表元素添加到报表中其他形状的顶部。 例如，如果内置任务成本概述报表处于活动状态，则语句会 ApplyReportLayoutTemplate pjReportLayoutTitleAndChart 向报表添加一个新文本框，其中包含报表标题和新的默认图表。

示例

以下示例创建一个包含标题文本框和基本表的报表，然后在表格单元格中垂直居中对齐文本。

Sub CreateTableReport()
    Dim theReport As Report
    Dim reportName As String
    Dim shp As Shape
    
    ' Add a report.
    reportName = "Table Report"
    Set theReport = ActiveProject.Reports.Add(reportName)
    
    ApplyReportLayoutTemplate TemplateId:=pjReportLayoutTitleAndTable
    
    For Each shp In theReport.Shapes
        If shp.HasTable Then
            shp.Select
            AlignTableCellVerticalCenter
        End If
    Next shp
End Sub

另请参阅

Application 对象

Report 对象PjReportLayoutTemplateId 枚举

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。