自定义 Excel 标题栏

默认情况下，Excel 标题栏由活动窗口的工作簿名和应用程序名称（Excel）通过连字符（-）组成，如：工作簿1.xlsm - Excel。如果希望自己编写的应用程序标题栏显示个性化名称，可以修改应用程序和活动窗口的标题文本。

示例

以下代码将应用程序的标题更改为 “XXX公司库存管理系统”。

'---------------- 模块 ----------------
Sub SetCaption()
    Application.Caption = "XXX公司库存管理系统"
    ActiveWindow.Caption = vbNullString
End Sub

第 3 行代码使用 Application 对象的 Caption 属性将应用程序的标题更改为 “XXX公司库存管理系统”。将 Caption 属性设置为空字符串时（Application.Caption = ""），将默认显示 Excel。

第 4 行代码使用 Window 对象的 Caption 属性将活动窗口的标题更改为空字符串。当活动窗口标题不为空时，Excel 会自动在两者之间添加连字符（-）。

语法参考

• Application.Caption 属性
• Window.Caption 属性