VBA設置Excel標題欄，Application.Caption屬性

 

Option Explicit

'返回或設置一個 String 值，它代表出現在 Microsoft Excel 主窗口標題欄中顯示的名稱。

Sub GetTheTitle()
    MsgBox Application.Caption, , "獲取標題"
End Sub

'注意2016中測試發現不會全改標題，僅在文件名后顯示此標題
Sub ModifyTheTitle()
    Application.Caption = "修改標題"
End Sub

'設置標題為空，則可恢復標題欄
Sub RrestoreTheTitle()
    Application.Caption = Empty
End Sub