SHOJI's Code
エクセルVBAでいろいろと作っていると、EXCELのタイトルバーに色々表示したくなる。
と、いうことで、ちょっとプログラミングしてみる
と、いうことで、ちょっとプログラミングしてみる
Public Declare Function FindWindow Lib "USER32" _
Alias "FindWindowA" _
(ByVal classname As Any, ByVal winname As Any) As Long
Public Declare Function SetWindowText Lib "USER32" _
Alias "SetWindowTextA" _
(ByVal hwnd&, ByVal txt$) As Long
Sub ChangeTitle(ByVal str as String)
hwnd& = FindWindow("XLMAIN", 0&)
If hwnd& <> 0 Then
SetWindowText hwnd&, str
End If
End Sub
"XLMAIN"はEXCELのメインウィンドウのウィンドウクラスだが、これからバージョンアップなどで変更されるかもしれないので注意。また、シートを選択したり、ブックを変えたりするとEXCEL自身がタイトルを変更するので、常に変更しておかないといけないのが、ちょっと使いづらいところ。
テーマ:EXCEL - ジャンル:コンピュータ
|
| ホーム |