ステータスバーにメッセージを表示(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 | 
実行結果
関連記事
-  
              
- 
      ブックを開く(Open メソッド)ブックを開く(Open メソッド) ブックを開くには、Workbooks コレク … 
-  
              
- 
      保存時にバックアップファイルが作成されるかどうかを確認(CreateBackup プロパティ)バックアップファイルが作成されるかどうかを確認 CreateBackup プロパ … 
-  
              
- 
      印刷設定(先頭ページのヘッダー・フッターを設定)DifferentFirstPageHeaderFooter, FirstPage先頭ページに別のヘッダーおよびフッターを設定 先頭ページのヘッダーおよびフッター … 
-  
              
- 
      印刷設定(ヘッダーに画像を指定)LeftHeaderPicture, CenterHeaderPicture, RightHeaderPictureヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C … 
-  
              
- 
      ブックのプロパティ(BuiltinDocumentProperties プロパティ)BuiltinDocumentProperties プロパティ ブックのプロパテ … 
-  
              
- 
      アクティブプリンタを変更(ActivePrinter プロパティ)ActivePrinter プロパティ ActivePrinter プロパティを … 
-  
              
- 
      WorksheetView オブジェクトWorkSheetView オブジェクト 行列番号や枠線の表示・非表示の設定など … 
-  
              
- 
      枠線の表示・非表示の設定(DisplayGridlines プロパティ)枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri … 
-  
              
- 
      シートが保護されているか確認(ProtectContents プロパティ)ProtectContents プロパティ ワークシートが保護されているかどうか … 
-  
              
- 
      選択されているシートを参照する(SelectedSheets プロパティ)SelectedSheets プロパティ 選択されているすべてのシートをあらわす … 
 
        
