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

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

Синтаксис

выражение. Подпись

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

Примечания

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

Если свойство "Заголовок" пусто, в заголовке окна будет отображаться подпись по умолчанию. Подпись по умолчанию для главного окна — "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 и обратная связь.