Método Application.ApplyReportLayoutTemplate (Project)

Aplica la plantilla de informe especificada al informe activo.

Sintaxis

expresión. ApplyReportLayoutTemplate (TemplateId)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
TemplateId	Opcional	PjReportLayoutTemplateId	Especifica el tipo de informe; puede ser una de las siguientes constantes: pjReportLayoutComparison, pjReportLayoutTitleAndChart, pjReportLayoutTitleAndTable o pjReportLayoutTitleOnly.
TemplateId	Opcional	PJREPORTLAYOUTTEMPLATEID

Valor devuelto

Boolean

Comentarios

Para un informe existente, el método ApplyReportLayoutTemplate agrega los elementos de informe especificados sobre otras formas del informe. Por ejemplo, si el informe de información general de costos de tareas integrado está activo, la ApplyReportLayoutTemplate pjReportLayoutTitleAndChart instrucción agrega un nuevo cuadro de texto con el título del informe y un nuevo gráfico predeterminado al informe.

Ejemplo

En el ejemplo siguiente se crea un informe que contiene un cuadro de texto de título y una tabla básica y, a continuación, se centra verticalmente el texto en las celdas de la tabla.

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

Vea también

Objeto Application

PjReportLayoutTemplateId (enumeración)del objeto Report

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.