ステータスバーにメッセージを表示(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 |
実行結果
関連記事
-
-
ブックの表示・非表示(Visible プロパティ)
ブック表示・非表示(Visible プロパティ) ブック(ウィンドウ)が表示され …
-
-
アウトライン記号の表示・非表示(DisplayOutline プロパティ)
アウトライン記号の表示・非表示(DisplayOutline プロパティ) Di …
-
-
ブックのパスを取得(FullName プロパティ,Path プロパティ)
FullName プロパティ・Path プロパティ ブックのパス(保存場所)を調 …
-
-
ワークシートを参照する(Worksheets プロパティ)
Worksheets プロパティ Worksheets プロパティは、Works …
-
-
印刷品質を設定(PageSetup.PrintQuality プロパティ)
PageSetup.PrintQuality プロパティ PageSetup.P …
-
-
計算精度を設定する(PrecisionAsDisplayed プロパティ)
PrecisionAsDisplayed プロパティ PrecisionAsDi …
-
-
ウィンドウを整列(Windows.Arrange メソッド)
ウィンドウを整列(Windows.Arrange メソッド) Windows コ …
-
-
印刷:余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt(ポイント:約 0.03528 cm) …
-
-
背景に画像を表示(SetBackgroundPicture メソッド)
SetBackgroundPicture メソッド SetBackgroundP …
-
-
印刷設定(ページごとに異なるヘッダー・フッターを設定)Page オブジェクト・HeaderFooter オブジェクト
Page オブジェクト ページごとに異なるヘッダーおよびフッターを設定する場合、 …