Application.Caption 属性 (Project)

获取或设置主窗口的标题栏中的文本。 读/写 String。

语法

表达式。标题

expression：表示 Application 对象的变量。

备注

当活动窗口处于最大化时，标题栏同时显示主窗口和活动窗口的标题，这两个标题用连字符分隔。 例如，如果主窗口的标题为"Microsoft Project"，活动窗口的标题为"Project1.mpp"，则标题栏在活动窗口处于最大化时显示"Project1.mpp - Microsoft Project"。

如果将 标题 属性设置为 空 ，则标题栏将显示的默认标题。 主窗口的默认标题为"Microsoft 项目"。

在只有一个窗口的项目中，该窗口的默认标题为该项目的文件名。 在打开多个窗口的项目中，每个窗口的默认标题为 name： 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。