Свойство Application.Caption (Project)

Возвращает или задает текст в строке заголовка главного окна. Для чтения и записи, String.

Синтаксис

expression. Заголовок

выражение: переменная, представляющая объект Application.

Примечания

Если активное окно развернуто, в строке заголовка отображается заголовок для главного и активного окон, разделяя субтитры дефисом. Например, если заголовок главного окна — "Microsoft Project", а заголовок активного окна — "Project1.mpp", в строке заголовка отображается "Project1.mpp - Microsoft Project" при развернутом активном окне.

Если для свойства Caption задано значение Пусто, в строке заголовка отображается заголовок по умолчанию. Заголовок по умолчанию для главного окна — "Microsoft Project".

В проекте с одним окном заголовком по умолчанию для окна является имя файла проекта. В проекте с несколькими открытыми окнами заголовком по умолчанию для каждого окна является имя: n, где name — имя файла проекта, а n — уникальный номер окна. Например, если второе окно проекта Project1 активно, в строке заголовка по умолчанию отображается "Project1.mpp:2 - Microsoft Project"

Пример

В следующем примере пользователю предлагается изменить заголовок активного окна.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.