ステータスバーにメッセージを表示(StatusBar プロパティ)
StatusBar プロパティ
StatusBar プロパティで、ステータスバーに表示するメッセージを取得および設定します。
また、DisplayStatusBar プロパティ で、ステータスバーの表示・非表示を取得および設定します。
StatusBar プロパティ
<取得>
object.StatusBar
<設定>
object.StatusBar = string
引数・戻り値
- object ・・・ 対象となる Application オブジェクトを指定します。
- string ・・・ ステータスバーに表示するメッセージを文字列型(String)の値で、指定します。文字列を既定値に戻すには、False を指定します。
Excel 側でステータスバーを制御しているとき、このプロパティは False を返します。ステータスバーの文字列を既定値に戻すには、False を設定します。ステータスバーが非表示の状態でも、この設定によって文字列は既定値に戻ります。
DisplayStatusBar プロパティ
<取得>
object.DisplayStatusBar
<設定>
object.DisplayStatusBar = boolean
引数・戻り値
- object ・・・ 対象となる Application オブジェクトを指定します。
- boolean ・・・ ブール型(Boolean)の値を指定します。ステータスバーを表示するには、True、非表示にするには、False を指定します。
DisplayStatusBar プロパティ・StatusBar プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
Sub Sample1_StatusBar() Dim msg As String, msg2 As String Dim defDStatus As Boolean Dim myTimer As Double Dim nowTime As Integer msg = "ステータスバー:ここにメッセージを表示します。 " '現在のステータスバーの状態を取得 defDStatus = Application.DisplayStatusBar '現在のステータスバーを表示 Application.DisplayStatusBar = True 'ステータスバーに表示するメッセージを設定 'Application.StatusBar = msg '10秒間ステータスバーにメッセージを表示 myTimer = Timer + 10 nowTime = 1 Do Until nowTime = 0 nowTime = Int(myTimer - Timer) Application.StatusBar = msg & nowTime DoEvents Loop 'ステータスバーを既定値に戻す Application.StatusBar = False 'ステータスバーの状態を元に戻す Application.DisplayStatusBar = defDStatus End Sub |
実行結果
関連記事
-
-
ウィンドウ枠の固定(FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウ枠の固定と解除 ウィンドウ枠を固定するには FreezePanes プ …
-
-
共有ファイルを開いているユーザー情報を取得(UserStatus プロパティ)
共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …
-
-
PDF または XPS 形式で出力(ExportAsFixedFormat メソッド)
ExportAsFixedFormat メソッド ブックやシートの内容を PDF …
-
-
Excel を全画面表示(DisplayFullScreen プロパティ)
DisplayFullScreen プロパティ DisplayFullScree …
-
-
印刷する用紙の向きを設定(PageSetup.Orientation プロパティ)
PageSetup.Orientation プロパティ PageSetup.Or …
-
-
白黒印刷(PageSetup.BlackAndWhite プロパティ)
PageSetup.BlackAndWhite プロパティ PageSetup. …
-
-
ファイル保存の既定の形式を取得・設定(DefaultSaveFormat プロパティ)
DefaultSaveFormat プロパティ DefaultSaveForma …
-
-
シートを保護・保護したシートを解除する(Protect メソッド・Unprotect メソッド)
Protect メソッド・Unprotect メソッド Protect メソッド …
-
-
簡易印刷(PageSetup.Draft プロパティ)
PageSetup.Draft プロパティ PageSetup.Draft プロ …
-
-
ワークシートの数を数える(Count プロパティ)
Count プロパティ 指定したWorksheets コレクションやSheets …