Свойство 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 и обратная связь.