Автоматизация PowerPoint с помощью макросов

Автоматизация PowerPoint с помощью макросов

 

Одним из наиболее важных и  полезных аспектов подготовки Microsoft Office к выполнению определенных задач является автоматизация процессов взаимодействия пользователя с приложениями Microsoft Office. Все приложения Microsoft Office поддерживают язык программирования Visual Basic for Applications (VBA). VBA позволяет работать с Microsoft Office, как с некоторым конструктором: в распоряжении разработчика VBA-приложения не только большое количество объектов и коллекций, но и возможности настроек, позволяющие до такой степени программно настроить любое приложение, что пользователь такого приложения может и не понять, с каким приложением происходит «общение».

Для того, чтобы упростить выполнение различных операций в PowerPoint, можно воспользоваться встроенным в систему языком программирования VBA. В PowerPoint макросы могут быть использованы, например, для создания дополнительных панелей инструментов и добавления новых команд меню, которые призваны облегчить процесс разработки презентаций, отвечающих современным стандартам. Уместно отметить также и возможность создания разнообразной системы проверки данных, вводимых пользователем в диалоговых окнах.

Язык макросов – это встроенный в приложение язык программирования, который позволяет  автоматизировать выполнение некоторой  последовательности операций путем  их объединения в одну большую  команду – макрокоманду.

Надо  помнить, что некоторые макросы представляют угрозу безопасности. Злоумышленник может внедрить в файл потенциально опасный макрос, способный вызвать заражение компьютера или сети организации вирусом.

Поэтому для решения проблем  безопасности предусмотрена  кнопка Безопасность макросов, здесь указывается, какие макросы могут выполняться и при каких условиях. Необходимо помнить о том, что если при открытии  презентации, содержащей макрос, появляется строка Предупреждение системы безопасности: запуск макросов отключен, надо нажать кнопку Включить содержимое.

 

Благодаря макросам PowerPoint активно используется для целей обучения — например, подготовки интерактивных уроков. Еще одна часто используемая возможность — создание звуковых книг с картинками для детей. При помощи PowerPoint можно создавать фотоальбомы со звуковым сопровождением, диафильмы со звуком, детские игры и многое другое.

В PowerPoint макрос можно сохранить в любой открытой презентации.

 

 

 

При открытии файла, содержащего макросы, появляется желтая панель сообщений со значком щита и кнопкой Включить содержимое. Если известно, что макрос поступил из надежного источника, воспользуйтесь приведенными ниже инструкциями.

На приведенном ниже рисунке  показана панель сообщений, если в файле  есть макросы.

Для разработки макросов в  пакете предусмотрена вкладка Разработчик

Включение вкладки "Разработчик"

1. На вкладке « Файл » выберите Параметры , чтобы открыть диалоговое окно Параметры PowerPoint .
2. Щелкните Настроить ленту в левой части диалогового окна.
3. В списке Выбрать команды из в левой части диалогового окна выберите элемент Часто используемые команды.
4. В области Настройка ленты в правой части диалогового окна выберите элемент Основные вкладки и установите флажок Разработчик.
5. Нажмите кнопку ОК.

После PowerPoint отображает вкладку " Разработчик ", следует иметь в виду расположение кнопкиVisual Basic, Макросыи Безопасность макросов на вкладке.

 
 
На рисунке 1. На вкладке Разработчик PowerPoint 2010 
 

Чтобы создать  новый макрос в редакторе Visual Basic

1. Нажмите кнопку Макросы на вкладке Разработчик.
2. В открывшемся диалоговом окне Макрос введите Hello в поле Имя макроса.
3. Нажмите кнопку Создать, чтобы открыть редактор Visual Basic с уже введенной структурой нового макроса.

VBA — это полнофункциональный  язык программирования с соответствующим  образом полнофункциональную среду  программирования. В данной статье  рассматриваются только тех средств,  которые используются приступить  к программированию, а также что  исключает большинство средств в редакторе Visual Basic. Закройте окно « Свойства » в левой части редактора Visual Basic и игнорировать два раскрывающихся списка, которые появляются над кодом.

 
 
Рисунок 2. Редактор Visual Basic 
 

Редактор Visual Basic содержит следующий код.

VB

Sub Hello()

 

End Sub

Sub означает подпрограммы, который можно определить для теперь как "макрос". Запуск макроса Hello выполняется любой код, который находится в диапазоне от Sub Hello() и End Sub.

Теперь редактировать  макрос, как указано ниже.

VB

Sub Hello()

   MsgBox("Hello world")

End Sub

Вернитесь на вкладку Разработчик в PowerPoint, а затем снова нажмите кнопку Макросы . В появившемся списке выберите Здравствуйте макрос и выберите команду Выполнить Откроется небольшое сообщение содержит текст «Hello world»

Созданный параметр и реализации пользовательского  кода VBA в PowerPoint! Нажмите кнопку ОК в окне сообщения, чтобы закрыть ее и завершения работы макроса.

Если в окне сообщения  отображается, проверьте параметры  безопасности макросов и повторном  запуске PowerPoint.

Предоставление  доступа к макросам

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

Чтобы сделать кнопку Здравствуйте макроса на Панель быстрого доступа, выполните следующие действия.

 

После отображения  вкладки Разработчик можно открыть редактор Visual Basic, который имеет встроенный инструмент, предназначенный для написания и редактирования программы VBA для PowerPoint.

Разберем  создание интерактивного теста в среде MS PowerPoint  с использованием  Visual Basic for Application. Для удобства в использовании теста добавим в него функции учета количества вопросов, количества верно выполненных заданий, процента выполнения заданий и выставления оценки

Откроем  MS PowerPoint  и создадим 3 слайда (на каждый вопрос 1 слайд), подберем оформление слайдов, шрифты  
Рассмотрим на примере первого слайда

Заходим в меню Разработчик – ЭЛЕМЕНТЫ УПРАВЛЕНИЯ

Берем переключатель (щелкаем на нем) и  помещаем на слайд (щелкаем на слайде) – на слайде появляется переключатель

– Щелкаем правой по переключателю и выбираем раздел СВОЙСТВА

– В разделе СВОЙСТВА  изменяем  вид и текст на переключателе:

 

Создаем еще 3 переключателя и производим с ними такие же действия

Создадим  кнопку. Для этого берм ее с той  же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд 

Щелкнув правой по кнопке, выбираем СВОЙСТВА и  тоже изменяем вид и текст на кнопке

Точно так же создаем слайды 2 и 3, вставляя в них соответствующие вопросы  и ответы, переключатели и кнопки

Создадим  последний слайд, на котором  будут выводиться все результаты

а) поместим на слайде 4 элемента Label (надпись) с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ

Итак, слайды созданы, объекты на них размещены 
Приступим к описанию событий.  
Для этого и используется  встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA).

Начнем  с первого слайда:

Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии  на кнопку «ДАЛЕЕ» автоматически  
– считалось число выполненных заданий 
– проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица 
– осуществлялся переход на следующий слайд (вопрос)

Откроем первый слайд. Сделаем двойной щелчок по кнопке «ДАЛЕЕ», при этом открывается  редактор Visual Basic, в котором мы и будем описывать процедуры нажатия на кнопку 
Здесь скажу, что у нас нет задачи изучить VBA – это требует долгой и кропотливой работы, остановимся только на алгоритме наших действий и объяснении строк используемого кода 
Ниже мы видим окно редактора Visual Basic

Z = 0  
L = 0 
N = 0 
If OptionButton3.Value = True Then 
L = L + 1 
End If  
Z = Z + 1 
OptionButton1.Value = False  
OptionButton2.Value = False  
OptionButton3.Value = False  
OptionButton4.Value = False  
SlideShowWindows(1).View.Next

Пояснение: 
Z – это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем’ 
L – счетчик верно выполненных заданий, ему тоже присваиваем ноль 
N – это процентное выполнение заданий теста

If OptionButton3.Value = True Then – Здесь проверяется, если выбран третий ответ (Четверо), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется’

Z = Z + 1 – считается число выполненных  заданий’

OptionButton1.Value = False  
OptionButton2.Value = False  
OptionButton3.Value = False  
OptionButton4.Value = False  – здесь снимаются точки со всех переключателей, чтобы при следующем запуске теста не было по умолчанию выбранных ответов’

SlideShowWindows(1).View.Next  ‘Это команда перехода к следующему слайду’

Аналогично  открываем 2 и 3 слайды и вставляем  такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код  из первого слайда), однако в коде этих кнопок убираем строки 
Z = 0  
L = 0  
N = 0  (т.к. тест уже идет и обнулять показания не надо)

7 шаг: 

Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин

Для этого:

– делаем двойной щелчок по кнопке «ДАЛЕЕ»  на первом слайде  
– в меню Visual Basic выбираем INSERT – MODULE,

–  в редакторе записываем код

Public L, Z, N As Integer

8 шаг: 

Осталось  написать код для кнопок «ПОСМОТРЕТЬ  РЕЗУЛЬТАТ» И «ВЫХОД»

а) Сначала опишем кнопку «ПОСМОТРЕТЬ  РЕЗУЛЬТАТ»:

Для этого  
– переходим на последний слайд 
– двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в Visual Basic  
– записываем код:

Private Sub CommandButton1_Click() 
Label1.Caption = Z   
Label2.Caption = L    
N = (L / Z) * 100     
Label3.Caption = N ‘ 
If N >= 85 Then 
Label4.Caption = «Отлично»    
End If 
If N < 85 And N >= 60 Then 
Label4.Caption = «Хорошо»   
End If 
If N < 60 And N >= 30 Then 
Label4.Caption = «Удовлетворительно»  
End If   
If N < 30 Then 
Label4.Caption = «Плохо»   
End If  
End Sub

Пояснение к коду:

Label1.Caption = Z –  здесь выведется число выполненных заданий 
Label2.Caption = L – здесь выведется число верно выполненных заданий 
N = (L / Z) * 100 – рассчитывается процент выполнения заданий 
Label3.Caption = N – здесь выводится процент выполнения заданий 
If N >= 85 Then  
Label4.Caption = «Отлично» – Если процент выполнения больше или равен 85 – выводится «Отлично» 
End If 
If N < 85 And N >= 60 Then 
Label4.Caption = «Хорошо» – Если процент выполнения от 60 до 85 – выводится «Хорошо» 
End If 
If N < 60 And N >= 30 Then 
Label4.Caption = «Удовлетворительно»  – Если процент выполнения от 30 до 60 – выводится «Удовлетв» 
End If   
If N < 30 Then  
Label4.Caption = «Плохо»  Если процент выполнения ниже 30 – выводится «Плохо» 
End If  
End Sub

б) Сейчас опишем кнопку «ВЫХОД»

Private Sub CommandButton2_Click() 
Slide5.Application.Quit 
End Sub

Выходим и сохраняем все изменения

9 шаг: 

На  этом создание теста закончено. Запускаем  его (открываем презентацию) и проверяем 
Если что – то не работает, то посмотрите  и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)

Триггеры в презентации.

Триггер, или «горячая зона» – объект на слайде, щелчок по которому анимирует  его или другие объекты слайда.

Инструкция по работе с шаблоном Drag-and-Drop.

Итак, для начала вам необходимо скачать его. Шаблон представляет собой пустой слайд с прописанным макросом. Для начала работы Вам вставляем объект.

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

В PowerPoint-2007 в главном меню щёлкаем по кнопке Office в левом верхнем углу окна.

 

Далее Параметры PowerPoint – Центр управления безопасностью – Параметры макросов – Отключить все макросы с уведомлением.

Макросы “заработают” после нашего разрешения.

Теперь начинаем работу с уже готовым макросом. Вы сможете работать с ним как  за компьютером с помощью мыши, так и у интерактивной доски  с помощью стилуса или просто пальца в зависимости от типа ИД.

Для перемещения  объекта нужно по нему просто щелкнуть («прихватывать» нет необходимости) и «тащить», куда нужно. Второй щелчок позволяет объект «отпустить».

Для того, чтобы добиться такого эффекта, необходимо произвести следующие манипуляции:

Щелкнуть по нужному  объекту правой кнопкой, в появившемся  меню выбрать Настройка действия.

Далее, в открывшемся  окне выставляем флажок активации макроса  DrangandDrop.

В PowerPoint-2007 алгоритм подключения макроса следующий:

 

 

 

В главном меню выполнить  следующие шаги: Вставка-Дейстие. Далее также выставляем флажок активации макроса.

Презентация с макросом готова.

Создание  кнопки для макроса на панели быстрого доступа

1. Откройте вкладку Файл.
2. Параметры , чтобы открыть диалоговое окно Параметры PowerPoint затем выберите командуПанель быстрого доступа.
3. В списке под выбрать команды из:, выберите команду Макросы. Найти текст, который напоминаетPresentation1!Привет в списке, который появляется и выделите текст, который.
4. Нажмите кнопку Добавить >>, чтобы добавить макрос в список с правой стороны, а затем нажмите кнопку Изменить…, чтобы выбрать изображение кнопки, связываемой с макросом.
5. Нажмите кнопку ОК. Новая кнопка должна появиться на Панели быстрого доступа над вкладкойФайл.