アプリケーションタイトルにファイル名のみ表示したい

質問

エクセルファイルを開いた時に、
アプリケーションタイトルに拡張子を含まない自身のファイル名を設定したいので

Private Sub Workbook_Open()
Application.Caption = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
End Sub

としたのですが、
こうすると、タスクバーから見た時などは
ファイル名　-　ファイル名　.xlsm
と表示されてしまいます。

-　より右の「　ファイル名　.xlsm」は不要なのですが、
どうしてこうなってしまうのでしょうか？
ファイル名のみ表示させたいです。

こうなるのは全画面表示の場合のみで最大化をやめるとファイル名のみ表示されます。
全画面表示でエクセルは開きたいです。

回答No.1

misatoanna · ベストアンサー

デフォルトの
"Test.xlsm - Microsoft Excel"
を表示変更する記述。

"Test - Microsoft Excel"
にする場合
ActiveWindow.Caption _
　　= Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)

"Test"
だけにする場合
ActiveWindow.Caption = ""
Application.Caption _
　　= Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)

お礼

どうもありがとうございました。