Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 75 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

1.4. Программирование на VBA 76
3
Case 1
' код, специфичный для первого принтера
Case 2
' код, специфичный для второго принтера
Case 3
' код, специфичный для третьего принтера
End Select
bln.Close ' метод, закрывающий объект Balloon
End Sub
Замечание
При определении свойства Callback необходимо учитывать контекст
вызова подключаемой процедуры. Строка с именем процедуры должна быть
составлена так, как будто вызов выполняется собственно из исходного кода.
Например, если код вызова объекта Balloon находится в модуле, а
процедура обратного вызова myCallback на листе Microsoft Excel (Лист1)
того же проекта, то свойство должно содержать строку
"Лист1.myCallback".
Флажки также используются для задания в окне Помощника требуемых
действий (например, распечатать раздел справки или сохранить в файле).
Одновременно в окне можно отобразить также не более пяти флажков. Доступ
к флажку также осуществляется по индексу. Для проверки установлены или
сброшены выведенные в окне Помощника флажки используется свойство
флажка Checked.
При добавлении растровой картинки указывается ее тип (например, bmp) и
путь к файлу с этой картинкой. Растровое изображение можно вставить в текст
сообщения, его заголовок или на какую-нибудь надпись. Графический элемент,
выводимый в сообщении, определяется по следующему синтаксису: {<тип>
<полное имя файла> <масштаб>}, где тип задает тип графического
элемента, полное имя файла – полный путь к файлу, находящемуся либо в
сети (
\\сервер\папка\picture.bmp
), либо на локальном жестком диске
(
c:\windows\circles.bmp
), а масштаб – ширину (в символах) метафайла
Windows. Если используются пропорциональные шрифты, масштаб
представляет среднюю ширину символов. Можно указать масштаб, чтобы
уменьшить или увеличить графический элемент.
Public Sub CreateBalloonObject()
myBmp = "{bmp c:\windows\circles.bmp}"
Dim MyAssist As Assistant
Dim MyBalloon As Balloon
Set MyAssist = Assistant
Set MyBalloon = MyAssist.NewBalloon
MyAssist.Animation = msoAnimationSearching

Страницы