Application.ApplyReportLayoutTemplate (Project)

Applique le modèle de rapport spécifié au rapport actif.

Syntaxe

expression. ApplyReportLayoutTemplate (ID de modèle)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
ID de modèle	Facultatif	PjReportLayoutTemplateId	Spécifie le type de rapport ; Il peut s’agir de l’une des constantes suivantes : pjReportLayoutComparison, pjReportLayoutTitleAndChart, pjReportLayoutTitleAndTable ou pjReportLayoutTitleOnly.
ID de modèle	Facultatif	PJREPORTLAYOUTTEMPLATEID

Valeur renvoyée

Boolean

Remarques

Pour un rapport existant, la méthode ApplyReportLayoutTemplate ajoute les éléments de rapport spécifiés par-dessus les autres formes du rapport. Par exemple, si le rapport Vue d’ensemble du coût des tâches intégré est actif, le ApplyReportLayoutTemplate pjReportLayoutTitleAndChart relevé ajoute une nouvelle zone de texte avec le titre du rapport et un nouveau graphique par défaut au rapport.

Exemple

L’exemple suivant crée un rapport qui contient un titre, une zone de texte et un tableau de base, puis centre verticalement le texte dans les cellules du tableau.

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

Voir aussi

Objet Application

Objet de rapportÉnumération PjReportLayoutTemplateId

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.