ステータスバーにメッセージを表示(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 |
実行結果
関連記事
-
-
表示されているセル範囲を取得(VisibleRange プロパティ)
VisibleRange プロパティ 現在表示されているセル範囲(Range オ …
-
-
選択されているシートを参照する(SelectedSheets プロパティ)
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …
-
-
指定された情報をブックから削除(RemoveDocumentInformation メソッド)
RemoveDocumentInformation メソッド 指定された種類の情 …
-
-
印刷設定(先頭ページのヘッダー・フッターを設定)DifferentFirstPageHeaderFooter, FirstPage
先頭ページに別のヘッダーおよびフッターを設定 先頭ページのヘッダーおよびフッター …
-
-
枠線を含めて印刷(PageSetup.PrintGridlines プロパティ)
PageSetup.PrintGridlines プロパティ PageSetup …
-
-
ブックを閉じる(Close メソッド)
ブックを閉じる(Close メソッド) Close メソッド で、ブックを閉じる …
-
-
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
ブックが共有モードか確認する(MultiUserEditing プロパティ)
ブックが共有モードか確認する(MultiUserEditing プロパティ) 共 …
-
-
ブックの変更が保存されているかを確認する(Saved プロパティ)
ブックの変更が保存されているかを確認する(Saved プロパティ) Saved …
-
-
ブック・シートの名前を取得・設定(Name プロパティ)
ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …