Compartilhar via


Propriedade Application.Caption (Project)

Obtém ou define o texto na barra de título da janela principal. Cadeia de caracteres de leitura/gravação.

Sintaxe

expressão. Legenda

expressão Uma variável que representa um Aplicativo objeto.

Comentários

Quando a janela ativa está maximizada, a barra de título exibe as legendas das janelas principal e ativa, separando-as com um hífen. Por exemplo, se a legenda da janela principal for "Microsoft Project" e a da janela ativa for "Projeto1.mpp", a barra de título exibirá "Projeto1.mpp - Microsoft Project" quando a janela ativa estiver maximizada.

Se você definir a propriedade Caption como vazio, a barra de título exibe a legenda padrão. A legenda padrão para a janela principal é "Microsoft Project".

Em um projeto com uma janela, a legenda padrão da janela é o nome do arquivo do projeto. Em um projeto que tem várias janelas abertas, a legenda padrão para cada janela é nome: n, em que o nome é o nome do arquivo do projeto e n é um número exclusivo para a janela. Por exemplo, se a segunda janela do projeto "Projeto1" estiver ativa, a barra de título padrão exibirá "Projeto1.mpp:2 - Microsoft Project".

Exemplo

O exemplo a seguir solicita que o usuário altere a legenda da janela ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.