Как вывести текст (сообщение, комментарий) в строке состояния?

Категория: Basic
2012-07-18 15:31:54
code: #vba
Application.StatusBar = "Вирус запущен"
Application.Caption = "В Багдаде всё спокойно"
ActiveWindow.Caption = ""

Для того, чтобы восстановить исходные значения, необходимо:

code: #vba
Application.StatusBar = False
iWorkbookName = ActiveWindow.Caption
 
'Здесь изменение в строке заголовка

Application.Caption = Empty
ActiveWindow.Caption = iWorkbookName ' (a).

Application.Caption = Empty
ActiveWindow.Caption = ThisWorkbook.Name 'ActiveWorkbook.Name ' (б).

Если существует вероятность, что строка состояния скрыта, то:

code: #vba
With Application
     .DisplayStatusBar = True
     .StatusBar = "Строка состояния"
End With
Поделиться:

Похожие статьи:

теги: строка состояния, вывод текста, макросы, vba, ячейка, excel