Цель работы
Научиться записывать макросы в приложениях Microsoft Office.
Ход работы
1) Запустите приложение Microsoft Office (Microsoft Word, Excel, Power Point).
2) Выполните команду «Сервис – Макрос – Начать запись»
3) В появившемся окне введите имя макроса и имя создателя макроса.
Рисунок 17.1 – Окно настройки макроса
а) Задайте макрос панели, для этого щелкните по соответствующей кнопке. В окне настройки пометьте галочкой панели, на которые можно будет перенести макрос. Задайте необходимые параметры. Из вкладки «Команды» перетащите имя макроса на нужную панель.
б) В окне «Настройка» или при выборе параметров записи макроса выберите «Клавиатура…». В появившемся окне назначьте сочетание клавиш для вызова макроса.
в) ВНИМАНИЕ: При задании параметров сохраняйте макрос в своем документе, а не в шаблоне Normal.dot
4) Начните запись макроса. Выполните произвольные действия с документом (поместите таблицы, поменяйте границы, цвет, шрифт, добавьте слайды по определенному шаблону и т.д.).
5) Поместите в отчет окна записи макроса, опишите действия, которые автоматизировали и опишите подробно весь процесс записи.
Содержание отчета
1) Тема работы;
2) Цель работы;
3) Подробное описание выполненной работы;
4) Окна работы с макросом.
17.4 Контрольные вопросы
1) Что такое макрос, макропрограммирование.
2) Способы создания макросов
3) Этапы выполнения работы.
Лабораторная работа. Макропрограммирование. Использование редактора VBА
Цель работы
Научиться программировать элементарные функции на языке Visual Basic for Application.
Ход работы
1) Редактор Visual Basic for Application (VBA) – развитая система визуального программирования для создания прикладных программ в среде Microsoft Office. С помощью VBA можно создать объекты управления графического интерфейса пользователя, задавать и изменять свойства объектов, подключать к ним соответствующий программный код.
Рисунок 18.1 – Окно редактора VBA
Редактор VBA содержит две присоединенные с изменяющимся размером панели инструментов и большую открытую область для написания программ и создания нестандартных диалоговых окон.
2) Макропрограммирование
а) Связывание с макросом. Запустите Microsoft Word.
б) Нажмите клавиши Alt+F11 для запуска VBA.
в) Перейдите к проекту Normal, Microsoft Word Объекты, ThisDocument. Выберите пункт меню Insert – Procedure. Задайте имя Primer.
г) В окне программы введите следующий код:
Private Sub Primer()
MSGBox (“Демонстрация работы макроса”);
End Sub
д) Закройте окно VBA. В документе введите предложение Дважды щелкните, и вы запустите макрос Primer. Поместите курсор там, где нужно вставить слово ЗДЕСЬ.
е) Выберите команду Вставка – Поле. Откроется диалоговое окно Поле. В поле Категории выберите Автоматизация документа; затем в поле Поля выберите MacroButton. Это поле имеет два параметра: имя предназначенного для запуска макроса и текст, который должен отображаться в документе с полем. Введите в поле кода макроса MACROBUTTON Primer ЗДЕСЬ и щелкните ОК.
ж) Вернувшись в документ, убедитесь, что макрос запускается после каждого щелчка на тексте горячей ссылки.
3) Запустите Word и нажмите клавиши <Alt+Fl 1 >, чтобы вызвать редактор VBA.
а) Перейдите к проекту Normal, Microsoft Word Объекты, ThisDocument. Раскройте список Object (Объект) и выберите из него Document; затем раскройте список Procedure (Процедура) и выберите в нем New. В результате этих действий создается процедура Document_New(), которая будет запускаться всегда, когда пользователь создает новый пустой документ, основанный на шаблоне документа Normal (Normal. dot).
б) Введите следующий код:
Private Sub Document_New()
strSubject = InputBox("Тема документа", "Свойства файла")
If strSubject <> "" Then
BuiltlnDocumentProperties(wdPropertySubject) = strSubject
End If End Sub
в) Создайте новый пустой документ, щелкнув на кнопке Создать, расположенной на панели инструментов Стандартная. На экране должно отобразиться окно ввода InputBox (). Введите новую тему и щелкните на кнопке ОК.
г) Выберите команду Файл – Свойства и откройте вкладку Документ. Правильно ли обновлено поле Тема?
4) Запустите Word и нажмите клавиши <Alt+F11>, чтобы вызвать редактор VBA. В окне проекта выберите проект Normal.
а) Выберите команду Insert - UserForm (Вставка - Пользовательская форма). В окне программы отобразятся нестандартное диалоговое окно UserForm. И панель инструментов с элементами управления, которые можно поместить в нестандартное диалоговое окно.
Рисунок 18.2 – Пример диалогового окна
б) Чтобы изменить имя UserForm1 на более приемлемое, перейдите вниз к окну Properties (Свойства), выделите текст справа от записи (Name) и введите новое имя.
в) Для изменения заголовка окна UserForm1 выделите текст, следующий за Caption в окне Properties (Свойства), и замените его текстом Распечатывание документа и конверта.
г) Щелкните по кнопке Флажок на панели инструментов. Затем щелкните и нарисуйте пустое диалоговое окно. Щелкните CheckBox1 и введите текст, который должен отображаться в нестандартном диалоговом окне, например Распечатать письмо.
д) Щелкните еще раз на кнопке Флажок на панели инструментов, добавьте в нестандартное диалоговое окно еще один флажок и введите следующий текст: Распечатать конверт.
е) Щелкните на элементе управления Кнопка на панели инструментов. Щелкните в верхней части нестандартного диалогового окна, добавив тем самым кнопку; затем щелкните на ней и введите текст ОК.
ж) Повторите процедуру и создайте кнопку Отмена, введя текст Отмена на ней. Затем в окне Properties (Свойства) измените значение свойства Cancel на True.
з) Дважды щелкните по кнопке Отмена. VBA создаст новую процедуру, названную CommandButton2_Click(). Эта процедура будет запускаться после щелчка по кнопке CommandButton2, помеченной как Отмена
и) Введите между Sub/End Sub следующую строку программы: End (эта команда удаляет диалоговое окно с экрана, закрывает все открытые файлы, освобождает любую память, зарезервированную для переменных, и прекращает выполнение макроса).
к) Снова вызовите диалоговое окно (View - Object). Экран снова примет прежний вид.
л) Дважды щелкните по кнопке ОК. VBA создаст новую процедуру, названную CommandButton1_Click(). Эта процедура будет запускаться после щелчка по кнопке CommandButton1, помеченной как ОК
м) Введите между Sub/End Sub следующую программу:
If CheckBox1 then ActiveDocument.PrintOut
If CheckBox2 Then ActiveDocument.Envelope.PrintOut
н) В окне проекта выберите проект Normal. Перейдите на вкладку Modules и создайте новый модель командой Insert – Modules.
о) Дважды щелкните в окне проекта по значку этого модуля. В окне программы введите следующую программу:
Sub Printion()
<Имя вашей формы>.show
End Sub
п) На свой документ Word пометите кнопку (Вид – Элементы управления, с панели выбрать кнопку; из контекстного меню выбрать «исходный текст»)
р) У вас откроется редактор VBA и создастся процедура CommandButton1_Click() в этой процедуре введите текст:
Private Sub CommandButton1_Click()
Normal.Printion
End Sub
с) Выйдите в окно документа и протестируйте работу макроса.
Содержание отчета
1) Тема работы;
2) Цель работы;
3) Подробное описание выполненной работы;
4) Текст программ макроса
5) Окна работы с макросом.
18.4 Контрольные вопросы
1) Что такое макрос, макропрограммирование;
2) Содержание процедур редактора VBA;
3) Назовите основные конструкции языка.
Список использованной литературы
1) Андерсон Э. Macromedia Flash MX 2004 / Энди Андерсон, Марк дел Лима, Стив Джонсон; пер. с англ. Латышевой Д.А. - М.: НТ Пресс, 2005. - 543, [1] с: ил. - (визуальный курс).
2) Бакаревич Ю.Б., Пушкина Н.В. MS Access 2000 за 30 занятий. – СПб.: БХВ-Петербург, 2001. – 510 с.
3) Бакаревич Ю.Б., Пушкина Н.В. Самоучитель Microsoft Access 2000. – СПб.: БХВ-Петербург, 2001. – 468 с.
4) Бакаревич Ю.Б., Пушкина Н.В. Самоучитель Microsoft Access 2002. – СПб.: БХВ-Петербург, 2002. – 720 с.
5) Волкова Е.В. Photoshop CS2. Художественные приемы и профессиональные хитрости/ Е.В. Волкова. – СПб.: Питер, 2006. —252 с: ил.
6) Гурский Ю. Photoshop CS2. Трюки и эффекты/ Ю. Гурский, А. Васильева. – СПб.: ИД Питер, 2005. – 555 с.: ил.
7) Могилев А.В. и др. Практикум по информатике – М.: Издательский центр “Академия”, 2002.
8) Рейнбоу В. Энциклопедия компьютерной графики/ В. Рейбоу. – СПб.: Питер, 2003 г.
9) Уроки Macromedia Flash [электронный ресурс]. Режим доступа: https://www.w3graphics.com, свободный. – Загл. с экрана.
10) Учебник по Adobe PhotoShop. [электронный ресурс]. Режим доступа: https://www.photozhop.ru, свободный.
11) Франклин Дерек. Flash 4. Анимация в Интернете/ Дерек Франклин, Брукс Паттон. – Санкт- Петербург.: СПБ Символ Плюс, 2000.
12) Demiart – PhotoShop форум. [электронный ресурс]. Режим доступа: https://demiart.ru, свободный
13) Demiart – PhotoShop форум. Уроки Flash [электронный ресурс]. Режим доступа: https://demiart.ru, свободный
14) Microsoft Access 2000. Шаг за шагом: Практическое пособие / Пер. с англ. – М.: ЭКОМ, 2000. – 352 с.
15) Corel Bryce [электронный ресурс]. Режим доступа: https://www.terragen.ru/Corel_bryce.htm, свободный.