После этого, когда вам необходимо обратить к кнопке из программного кода, вы можете использовать метод FindControl для получения ссылки на кнопку, например, с помощью следующей инструкции:
CommandBars.FindControl(, , "Tag0l")
В этом примере запятые относятся к необязательным параметрам метода FindControl, которые не потребуются вам при нахождении элементов управления (в нашем случае, кнопки) по свойству Tag.
В приведенной ниже таблице перечислены наиболее полезные свойства и методы, позволяющие настраивать кнопки панелей инструментов с помощью VBA.
Свойство или метод | Эффект | Доступные параметры (только для свойств) |
Свойство Enabled | Определяет, включена ли кнопка и доступна ли она щелчком мышью либо она отключена, а значит, затемена | True или False |
Свойство Visible | Определяет, видна ли кнопка | True или False |
Свойство State | Определяет, кажется ли кнопка "нажатой" | MsoButtonUp (обычный вид кнопки); msoButtori Down (кнопка заблокирована в нажатом состоянии); msoButtonMi xed (кнопка имеет вид "нажимаемой") |
Метод CopyFace | Копирует изображение с указанной кнопки в буфер обмена. Для кнопки, изображение которой изменяется должным образом, создайте панель инструментов, содержащую кнопки с нужным изображением, но не выполняющие никаких реальных действий. Затем скройте эту панель инструментов. Когда придет время изменить изображение на "настоящей" кнопке, используйте метод Copy Face для копирования необходимого изображения с соответствующей кнопки на скрытой панели инструментов. Затем используйте метод Paste Face для вставки изображения на кнопку | |
Метод PasteFace | Размещение на кнопке изображения, уже помещенного в буфер обмена |
Экранные подсказки- это те небольшие сообщения желтого цвета, которые появляются на экране после подведения указателя мыши к определенному элементу на одну-две секунды.
Экранные подсказки для панелей инструментов должны быть включены, и по умолчанию это именно так. Если же это не так, выберите команду Сервис=Настройка, перейдите на вкладку Параметры, после чего установите флажок Отображать подсказки для кнопок.
По умолчанию экранная подсказка для кнопки содержит только ее имя. Однако, если вы не боитесь немного попрограммировать на VBA, вы сможете добавить текст к экранной подсказке, изменив ее свойство ToolTipText. Приведенный ниже программный код добавляет экранную подсказку для воображаемой кнопки в Excel:
Sub Этой_Кнопке_Нужна_Экранная подсказка!)
CommandBars("Mr. GoodBar").Controls ( 2).ToolTipText = _
"Форматирование ячейки: по центру, полужирный, денежный"
End Sub
Вам необходимо выполнить эту процедуру всего один раз. Поскольку Office сохраняет новые экранные подсказки в шаблоне документа, с которым вы работаете, вы можете удалить процедуру в любое время.
В любом приложении из состава Microsoft Office Помощник по Office позволяет быстро находить необходимую справочную информацию или предлагает пошаговые инструкции для выполнения повседневных задач. Как вы и могли ожидать, для манипулирования Помощником с помощью VBA достаточно использовать объект Assistant.
Используйте свойства объекта Assistant (табл. 14.1) для контроля за тем, как и когда
Помощник по Office будет появляться на экране. Пока вы не уверены в том. что Помощник уже включен, убедитесь в том, что его свойство On имеет значение True, прежде чем пытаться включить его снова.
Таблица 14.1. Свойства объекта Assistant
Свойство | Функция | Допустимые значения |
On | Определяет доступность Помощника по Office. Соответствует флажку Использовать помощника на вкладке Параметры диалогового окна Помощник | True или False |
Visible | Определяет наличие Помощника на экране | True или False |
FileName | Выбирает персонаж помощника, который будет представлен на экране: Срепыш, Мурка и т.д. | Допустимое имя файла с расширением .acs, заключенное в кавычки |
Animation | Заставляет Помощника выполнять различные трюки. Вы можете указать, какие именно действия будет выполнять Помощник | Любая из доступных констант, определяющих конкретные движения, такие как msoAnimationGet Arsty. Для просмотра списка всех доступных констант выберите тип MsoAnimationType в библиотеке Office в окне обозревателя объектов |