Méthode Application.FilePageSetupLegendEx (Project)

Article
01/17/2024

Crée une légende pour l’impression de vues de données de tâche, où la couleur peut être une valeur hexadécimale.

Syntaxe

expression. FilePageSetupLegendEx (Name, TextWidth, LegendOn, Alignment, Text, LabelFontName, LabelFontSize, LabelFontBold, LabelFontItalic, LabelFontUnderline, LabelFontColor)

Expression Expression qui renvoie un objet Application .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Name	Facultatif	String	Nom de l’affichage ou du rapport pour lequel définir les légendes à imprimer.
TextWidth	Facultatif	Integer	Largeur du texte en pouces ou en centimètres.
LegendOn	Facultatif	Long	Pages sur lesquelles la légende apparaît. Il peut s’agir de l’une des constantes PjLegend suivantes : pjNoLegend, pjAfterLastPage ou pjOnEveryPage.
Alignment	Facultatif	Long	Alignement du texte de la légende. Il peut s’agir de l’une des constantes PjAlignment suivantes : pjLeft, pjCenter ou pjRight. La valeur par défaut est pjCenter.
Texte	Facultatif	String	Texte à afficher dans la légende. Les codes de format spéciaux peuvent être inclus dans la légende.
LabelFontName	Facultatif	String	Nom de la police.
LabelFontSize	Facultatif	Integer	Taille de la police, exprimée en points.
LabelFontBold	Facultatif	Boolean	Renvoie la valeur True si la police est en gras ; False dans le cas contraire.
LabelFontItalic	Facultatif	Boolean	Renvoie la valeur True si la police est en italique ; False dans le cas contraire.
LabelFontUnderline	Facultatif	Boolean	Renvoie la valeur True si la police est soulignée ; False dans le cas contraire.
LabelFontColor	Facultatif	Long	Couleur de la police de caractères. Peut être représentée par une valeur RVB hexadécimale, le rouge étant le dernier octet. Par exemple, la valeur &H01FFFF représente le jaune.

Codes de mise en forme

Code de format	Description
&B	Active et désactive l’impression en gras.
&I	Active et désactive l’impression en italique.
&U	Active et désactive l’impression en souligné.
&""fontname" »	Imprime les caractères qui suivent le code de format dans la police spécifiée. Par exemple, &""Arial"".
&nn	Imprime les caractères qui suivent le code de format dans la taille de police spécifiée. Utilisez une valeur à deux chiffres pour spécifier une taille en points. Par exemple, &08.
&P""path" »	Insère l’image spécifiée. Par exemple, &P" » [Mes documents] \Image.gif" ». Le terme [Mes Documents] représente le chemin complet d’accès au dossier Mes Documents.
&[Date]	Imprime la date actuelle du système.
&[Heure]	Imprime l’heure actuelle du système.
&[Fichier]	Imprime le nom du fichier.
&[Page]	Imprime le numéro de page.
&[Pages]	Imprime le nombre total de pages du document.
&[Titre du projet]	Imprime le titre.
&[Société]	Imprime le nom de la société.
&[Manager]	Imprime le nom du responsable.
&[Date de début]	Imprime la date de début du projet.
&[Date de fin]	Imprime la date de fin du projet.
&[Date du jour]	Imprime la date en cours du projet.
&[Date d’état]	Imprime la date d’état du projet.
&[Affichage]	Imprime le nom de l’affichage.
&[Rapport]	Imprime le nom du rapport.
&[Filtre]	Imprime le nom du filtre.
&[Date d’enregistrement]	Imprime la date du dernier enregistrement.
&[Objet]	Imprime l’objet.
&[Auteur]	Imprime le nom de l’auteur.
&[Mot clé]	Imprime le ou les mots-clés.
&[Field_Name]	Imprime la valeur du champ spécifié avec Nom_champ. Si une macro est exécutée en plusieurs langues, le champ spécifié avec Nom_champ doit utiliser le nom localisé pour chaque langue. Par exemple, &[Coût réel].

Valeur renvoyée

Boolean

Remarques

L’utilisation de la méthode FilePageSetupLegendEx sans indication d’argument génère l’affichage de la boîte de dialogue Mise en page dans laquelle l’onglet Légende est sélectionné.

FilePageSetupLegendEx n’est valable que pour l’affichage des données de tâches.

Exemple

L’exemple suivant montre comment définir une légende pour l’impression.

Sub SetLegend() 
 
    Dim strLegend As String 
 
    strLegend = GetFontFormatCode("Arial") 
    strLegend = strLegend & "&BThis text will appear in the legend.&B" 
    Application.FilePageSetupLegendEx Text:=strLegend, _ 
        Alignment:=pjCenter, LegendOn:=pjOnEveryPage 
End Sub 
 
Public Function GetFontFormatCode(strFontName As String) As String 
    GetFontFormatCode = "&" & Chr(34) & strFontName & Chr(34) 
End Function

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.

Partager via