Microsoft Excel VBA - Excelのタイトルバーを変更する方法

◆概要

このページは、Excel VBAでExcelのタイトルバーを変更する方法について記載しています。


通常、エクセルのタイトルバーは、Microsoft Excel - [ファイル名]となりますが、これを変更して任意の文字列をタイトルバーに表示させることが可能です。


エクセルのタイトルバーに、任意の文字列を表示するには、ApplicationオブジェクトのCaptionプロパティ及びActiveWindowオブジェクトのCaptionプロパティに表示したい文字列を指定します。

◆Sample code 

Sub ChangeTitleBar()
'Excelのタイトル・バーの文字列を変更する
    Application.Caption = "売上高実績"
    ActiveWindow.Caption = "Sales Results"
End Sub

◆実行結果

Excel 2003の場合

Excel2003実行結果

Excel 2007/2010の場合:ActiveWindowのキャプションが先に表示される

Excel2007実行結果

また、元に戻すには次のコードを実行します。

Sub UndoChangeTitleBar()
'Excelのタイトルバーを元の状態に戻す
    Application.Caption = ""
    ActiveWindow.Caption = ActiveWorkbook.Name
End Sub



▼ページトップへ