Программирование окна Помощника

Программирование окна Помощника

Окно Помощника- это тот желтый прямоугольник, в котором Помощник предлагает вам возможные варианты действий. Хотя Office использует это окно практически исключительно для отображения справочной информации, вы сможете использовать VBA для создания собственных вариантов окна и заполнения его всевозможными сведениями, такими как котировки акций, процентные ставки банков и т.д.

Первый шаг к отображению пользовательского варианта окна Помощника состоит в создании нового объекта. Как это ни удивительно, но NewBaloon - это свойство, а не метод объекта Assistant. В любом случае, используйте инструкцию Set для создания объекта окна с помощью такого кода, как, например, приведен ниже.

Dim blnUpUpAndAway As Baloon

Set blnUpUpAndAway = Assistant.NewBaloon

После создания объекта balloon используйте перечисленные в табл. 14.2 свойства для определения его содержимого. В нашем случае используйте метод Show для отображения пользователю окна Помощника.

Таблица 14.2. Свойства объекта Balloon

Свойство

Для чего предназначено

Доступные параметры; заметки

Mode

Определяет, должен ли пользователь закрыть окно Помощника, чтобы продолжить работу с приложением

msoModeModeless (окно остается на экране до тех пор, пока не будет закрыто пользователем); msoModeModal (окно должно быть закрыто пользователем); msoModeAutoDown (окно закрывается после щелчка за его пределами)

BalloonType

Определяет, должны ли заголовки в окне быть 8 виде кнопок или же в виде нумерованного или маркированного списка

msoBalloonTypeButtons;

msoBalloonTypeNumbers;

msoBalloonTypeBullets

Icon

Указывает на один из доступных значков для окна Помощника

msoIconNone; msoIconTip; msoIconAlert

Heading

Определяет заголовок, отображаемый полужирным шрифтом в верхней части окна Помощника

Любое строковое значение

Text

Определяет "обычный" текст, который отображается после заголовка, но над любыми подписями, флажками или кнопками

Любое строковое значение

Labels

Указывает текст подписей в окне Помощника

Любое строковое значение

CheckBoxes

Указывает текст подписей к флажкам в окне Помощника

Указывает текст подписей в окне Помощника

Button

Определяет количество и тип кнопок, отображаемых в нижней части окна Помощника

Любая из констант msoButtonSetType, перечисленных в окне обозревателя объектов

Вы можете придать окну Помощника гораздо более привлекательный внешний вид, если добавите в него хотя бы одну картинку. Для отображения картинки вам следует присвоить свойству Icon значение, равное одной из констант, перечисленных в табл. 14.2. Для отображения картинки определите ее как часть текстовой строки, используемой для определения свойств Heading или Text объекта окна Помощника, либо одной из подписей, как показано в следующем примере:

blnUpUpAndAway.Text = "VBA! {bmp c:dummies.bmp}"

Как видно из этого примера, вы должны заключить имя файла с изображением и путь к нему в фигурные скобки. Сначала вам необходимо указать формат файла –bmp для формата .bmp или wmf для формата .wmf и только затем указыват путь к файлу и имя файла.

После того как созданное вами окно Помощника отображено на экране, вам обязательно потребуется убрать его с экрана. Если объект окна Помощника является модельным (его свойству Mode присвоено значение msoModeModal, что имеет место по умолчанию), окно будет закрыто после щелчка на любой из его кнопок. Если же это не так, вам необходимо использовать в своей процедуре метод Close для закрытия окна в результате наиболее вероятных действий со стороны пользователя - щелчка на кнопке ОК или на кнопке Отмена.