Произвольный текст в строке состояния

С помощью небольшого макроса можно включить отображение в строке состояния произвольного текста. Код макроса выглядит следующим образом (листинг 3.5).

Листинг 3.5. Произвольный текст в строке состояния

Sub ChangeStatusBarText()

Application.StatusBar = «Как надоело работать!!!»

End Sub

Результат применения данного макроса представлен на рис. 3.1.

Рис. 3.1. Изменение текста в строке состояния

Для возврата к первоначальному состоянию можно использовать следующий макрос (листинг 3.6).

Листинг 3.6. Восстановление строки состояния

Sub ReturnStatusBarText()

Application.StatusBar = False

End Sub

После запуска данного макроса строка состояния примет прежний вид.

Текст, изображенный в строке состояния на рис. 3.1, можно заставить двигаться, то есть создать эффект бегущей строки. В этом нам поможет макрос, код которого приведен в листинге 3.7.

Листинг 3.7. Бегущая строка в строке состояния

Sub MovingTextInStatusBar()

Dim intSpaces As Integer

' Изменение количества пробелов в начале строки (от 20 до

0) – _

строка бежит (скорее ползет) влево

For intSpaces = 20 To 0 Step -1

' Запись текста в строку состояния

Application.StatusBar = Space(intSpaces) & "Как надоело

работать!!!"

' Выдерживаем паузу

Application.Wait Now + TimeValue(«00:00:01»)

' Дадим Excel обработать пользовательский ввод

DoEvents

Next

Application.StatusBar = False

End Sub

После запуска макроса текст в строке состояния (он может быть произвольным) начнет двигаться справа налево.