Быстрое изменение заголовка окна

Аналогичным образом при необходимости можно изменить текст в заголовке окна программы. Для этого можно использовать, например, следующий макрос (листинг 3.8).

Листинг 3.8. Изменение заголовка окна

Sub NewTitle()

Application.Caption = «Какая хорошая погода»

End Sub

Результат выполнения макроса показан на рис. 3.2.

Рис. 3.2. Изменение заголовка окна

Однако на рис. 3.2 видно, что перед новым заголовком находится название текущего файла. Чтобы убрать это название, необходимо внести в макрос некоторые изменения (листинг 3.9).

Листинг 3.9. Изменение заголовка окна (со скрытием названия файла)

Sub NewTitle()

Application.Caption = «Какая хорошая погода»

ActiveWindow.Caption = ""

End Sub

После запуска данного макроса заголовок примет следующий вид (рис. 3.3).

Рис. 3.3. Заголовок без названия файла

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

Листинг 3.10. Еще один вариант изменения заголовка

Sub NewTitle()

Application.Caption = «А завтра будет дождь»

ActiveWindow.Caption = «Какая хорошая погода»

End Sub

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

Рис. 3.4. Измененный заголовок с дополнительным текстом

Чтобы заголовок окна программы принял свой первоначальный вид, необходимо запустить следующий макрос (листинг 3.11).

Листинг 3.11. Возврат к первоначальному заголовку

Sub ReturnTitle()

' Возвращение заголовка приложения (то есть Excel)

Application.Caption = Empty

' Указание правильного названия открытого файла (книги)

ActiveWindow.Caption = ThisWorkbook.Name

End Sub

Этот макрос отменяет и изменения в заголовке, и ввод дополнительного текста после заголовка.