Método Application.ApplyReportLayoutTemplate (Project)

Aplica o modelo de relatório especificado ao relatório ativo.

Sintaxe

expression. ApplyReportLayoutTemplate(TemplateId)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Templateid	Opcional	PjReportLayoutTemplateId	Especifica o tipo de relatório; pode ser uma das seguintes constantes: pjReportLayoutComparison, pjReportLayoutTitleAndChart, pjReportLayoutTitleAndTable ou pjReportLayoutTitleOnly.
Templateid	Opcional	PJREPORTLAYOUTTEMPLATEID

Valor de retorno

Boolean

Comentários

Para um relatório existente, o método ApplyReportLayoutTemplate adiciona os elementos de relatório especificados em cima de outras formas no relatório. Por exemplo, se o relatório de Visão Geral do Custo da Tarefa interno estiver ativo, a ApplyReportLayoutTemplate pjReportLayoutTitleAndChart instrução adicionará uma nova caixa de texto com o título do relatório e um novo gráfico padrão ao relatório.

Exemplo

O exemplo a seguir cria um relatório que contém uma caixa de texto de título e uma tabela básica e, em seguida, centraliza verticalmente o texto nas células da tabela.

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

Confira também

Objeto de Aplicativo

Enumeração de Objeto de Relatório PjReportLayoutTemplateId

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.