Propriété Application.Caption (Project)
Obtient ou définit le texte dans la barre de titre de la fenêtre principale. String en lecture/écriture.
Syntaxe
expression. Légende
expressionUne variable qui représente un objetApplication.
Remarques
Lorsque la fenêtre active est agrandie, la barre de titre affiche l’intitulé de la fenêtre principale et de la fenêtre active : ces intitulés sont séparés par un trait d’union. Par exemple, si l’intitulé de la fenêtre principale est « Microsoft Project » et que celui de la fenêtre active est « Projet1.mpp », la barre de titre affiche « Projet1.mpp - Microsoft Project » lorsque la fenêtre active est agrandie.
Si la valeur de la propriété Caption est Empty, la barre de titre affiche l’intitulé par défaut. Ce dernier est « Microsoft Project » pour la fenêtre principale.
Dans un projet ne comprenant qu’une seule fenêtre, son intitulé par défaut correspond au nom de fichier du projet. Dans un projet dont plusieurs fenêtres sont ouvertes, la légende par défaut de chaque fenêtre est nom : n, où name est le nom de fichier du projet et n est un numéro unique pour la fenêtre. Par exemple, si la seconde fenêtre du projet « Projet1 » est active, la barre de titre par défaut affiche « Projet1.mpp:2 - Microsoft Project ».
Exemple
L'exemple suivant invite l'utilisateur à modifier l'intitulé de la fenêtre active.
Sub ChangeWindowCaption()
Dim Entry As String ' Caption entered by user
' Prompt user for a new caption.
Entry = InputBox$("Enter a new caption for the active window (enter 'reset' to set the caption to its default).")
' If user chooses the Cancel button, exit Sub procedure.
If Entry = Empty Then Exit Sub
' Set or reset the caption.
If Entry = "reset" Then
ActiveWindow.Caption = Empty
Else
ActiveWindow.Caption = Entry
End If
End Sub
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.