Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Obtient ou définit le texte dans la barre de titre d’une fenêtre de projet. String en lecture/écriture.
Syntaxe
expression. Sous-titre
expression Variable qui représente un objet Window.
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 qui a plusieurs fenêtres ouvertes, la légende par défaut pour chaque fenêtre est nom : n, où nom est le nom de fichier du projet et n est un nombre 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.