Méthode Application.FilePageSetupLegend (Project)
Crée une légende pour l’impression des vues des données de tâche.
Syntaxe
expression. FilePageSetupLegend (Name, TextWidth, LegendOn, Alignment, Text, LabelFontName, LabelFontSize, LabelFontBold, LabelFontItalic, LabelFontUnderline, LabelFontColor)
expressionUne variable qui représente un objetApplication.
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. Il peut s’agir de l’une des constantes PjColor ; consultez la table des constantes PjColor . |
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]. |
Constantes PjColor
| Constante | Constante |
|---|---|
| pjColorAutomatic | pjNavy |
| pjAqua | pjOlive |
| pjBlack | pjPurple |
| pjBlue | pjRed |
| pjFuchsia | pjSilver |
| pjGray | pjTeal |
| pjGreen | pjYellow |
| pjLime | pjWhite |
| pjMaroon |
Valeur renvoyée
Booléen
Remarques
L’utilisation de la méthode FilePageSetupLegend sans indication d’argument entraîne l’affichage de la boîte de dialogue Mise en page, dans laquelle l’onglet Légende est sélectionné.
FilePageSetupLegend n’est valable que pour l’affichage des données de tâches.
Pour modifier une légende où LabelFontColor peut être une valeur RVB hexadécimale, utilisez la méthode FilePageSetupLegendEx .
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.FilePageSetupLegend 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.