Презентации к уроку

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

Цель урока: закрепить практические навыки создания макросов на языке VBA

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

Задание 1

Создать проект «Проверь себя», включающий задания для проверки навыков устного счёта и знания правил грамматики русского языка. Числа формируются случайные из заданного диапазона [1, n]. Программа должна подсчитывать количество решённых примеров и количество верных ответов.

Перед началом работы запустите программу Power Point и установите низкий уровень безопасности (СЕРВИС – Макрос – Безопасность).

1. Создайте титульный слайд № 1.

2. Создайте слайд № 2 – Меню, предназначенное для выбора предметной области: математика, русский язык. Настройте гиперссылки для перехода на соответствующие слайды № 3 (математика) и № 4 (русский язык) (Рисунок 1).

Рис. 1. Слайд № 2 «Меню»

3. Создайте слайд № 3 (Математика). Разместите на слайде 4 командные кнопки (CommandButton) с помощью панели Элементов управления (Вид – панели инструментов – элементы управления).

4. С помощью автофигур (панель Рисования) создайте на слайде кнопку «Выход», настройте её на завершение презентации. Для этого в контекстном меню кнопки выберите Настройка действия – По щелчку мыши – Перейти по гиперссылке – Завершить показ.

5. Установите свойства командных кнопок. В контекстном меню кнопки CommandButton1 нужно выбрать пункт Свойства и установить свойства в соответствии с таблицей. Аналогично установите свойства остальных кнопок.

Свойство

Пояснение

Значение

CaptionзаголовокСложениеFontшрифтполужирный, размер 18ForeColorЦвет шрифтапроизвольныйBackColorЦвет фонапроизвольный

Внешний вид слайда показан на Рисунке 2.

Рис. 2 Слайд № 3 «Математика»

6. Создайте программные коды каждой кнопки для вызова пользовательских форм (UserForm). Для этого в контекстном меню кнопки выбрать команду «Исходный текст» (или выполнить двойной щелчок по кнопке). Откроется окно программного кода. После заголовка процедуры нужно ввести команду для открытия соответствующей формы:

7. Добавьте в проект 4 пользовательские формы командой Insert – UserForm.

8. Перейдите на форму UserForm1 и разместите на ней необходимые элементы управления. Вид формы показан на Рисунке 3. В таблице указаны только элементы управления, которые используются в программном коде. Остальные метки используются для поясняющих надписей на форме. Свойства элементов управления установите самостоятельно.

Элемент управления

Пояснение

Назначение

Label4меткадля вывода переменной а (1 слагаемое)Label6меткадля вывода переменной b (2 слагаемое)TextBox1текстовое поледля вывода переменной S (сумма)Label12меткадля вывода переменной k (количество примеров)Label13меткадля вывода переменной n (количество верных ответов)Label15меткадля вывода комментария («верно» или «неверно»)Label2меткадля вывода переменной z (максимальная граница диапазона чисел)CommandButton1кнопкаДалее (выдаёт следующий пример, проверяет введённый ответ)CommandButton2кнопкаРезультат (выводит результаты)CommandButton3кнопкаМеню (для возврата назад в меню)

Рис. 3 Интерфейс формы UserForm1

9. Добавим в проект модуль (Insert – Module), в котором опишем глобальные переменные и их тип. Эти переменные будут доступны для всех пользовательских форм проекта.

a, b – переменные для хранения слагаемых, будут генерироваться с помощью функции случайного числа;
S – переменная для хранения суммы;
k – количество примеров
n – количество верных ответов
z – переменная для хранения максимального значения диапазона случайных чисел.

Global a, b, s, n, k As Integer, z As Integer

10. Создайте программные коды для формы UserForm1 «Сложение».

11. Сохраните работу и проверьте работоспособность всех кнопок.

12. Аналогично создайте программные коды для форм «Вычитание» (UserForm2), «Умножение» (UserForm2), «Деление» (UserForm2).

13. Для вычитания введём проверку логического условия, чтобы из большего числа вычитать меньшее:

14. Для деления введём проверку на кратность чисел, чтобы числа делились нацело:

15. Создайте слайд № 4 (Русский язык). Разместите на слайде 4 командные кнопки (CommandButton) с помощью панели Элементов управления. Свойства кнопок настройте аналогично слайду № 3. В названиях кнопок укажите правила русского языка (выберите их самостоятельно). Например: «НН и Н», «ЖИ и ШИ» и т.д.

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

17. Перейдите на форму UserForm5 и разместите на ней необходимые элементы управления. Вид формы показан на Рисунке 4. В таблице указаны только элементы управления, которые используются в программном коде.

Пояснение

Назначение

Элемент управления
Label6меткадля вывода надписи «Количество верных ответов»
TextBox1-8текстовые полядля ввода пропущенных букв
Label15меткадля вывода надписи «Ошибки выделены красным цветом»
Label14меткадля вывода переменной n (количество верных ответов)
CommandButton1кнопкаПроверка (проверяет ответы и выдаёт результат)
CommandButton3кнопкаНазад (для возврата назад в меню)
CommandButton2кнопкаДалее (переход к следующей форме с заданиями)

Рис. 4 Интерфейс формы UserForm5

18. Создайте программный код для кнопки «Проверка».

19. Аналогично создайте программные коды для остальных форм и сохраните проект.

Задания для самостоятельной работы

  1. Придумайте задания для проверки знаний по информатике и добавьте их в проект.
  2. Подготовьте ребусы на любые темы и добавьте их в проект. Создайте соответствующие слайды «Информатика» и «Ребусы», пользовательские формы и программные коды.

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

Средство, используемое для автоматизации часто используемых задач, недоступно в PowerPoint_2013 или более поздней версии. Вместо этого для создания или изменения макросов можно использовать Visual Basic для приложений (VBA). Сюда входят изменения, которые были созданы в более ранних версиях PowerPoint_generic.

Создание и изменение макроса

Чтобы создать или изменить макрос с помощью Visual Basic для приложений, сделайте следующее:

На вкладке Вид выберите Макросы.

В диалоговом окне Макрос введите имя макроса.

В списке Где выберите TE000127621 или презентацию, где требуется сохранить макрос.

В поле Описание введите описание макроса.

Чтобы открыть Visual Basic для приложений, нажмите кнопку Создать.

Важно: Это средство недоступно в Office на компьютерах под управлением Windows RT. Хотите узнать, какая у вас версия Office?

Запуск макроса

Сведения о том, как запустить макрос в последних версиях PowerPoint_generic, можно найти в разделе Запуск макроса в PowerPoint.

Экономия 5 минут в час за счет более продуктивной работы дает за год экономию в 4 рабочие недели

VBA в PowerPoint

Зачем нужны макросы в PowerPoint?

Начну с того, что задачи для программирования в PowerPoint достаточно специфические, в большинстве случаев они решаются через Excel. Однако, ряд задач решить таким образом не удастся. Например:

  • Добавить на каждый слайд презентации progressbar с показом оставшегося количества слайдов
  • Убрать весь alternative text, заголовки и гиперссылки с каждой формы и рисунка
  • Автоматически рисовать фигуру по заданным параметрам, например, для перехода в определенное место презентации
  • Создать умное оглавление
  • Сделать вышеперечисленное для всех презентаций в папке (пользуясь случаем – передаю привет трудягам, у кого их больше 30 на периодическом обновлении)

Как создавать макросы?

Если вы привыкли создавать и запуска макросы из файла с поддержкой макросов – здесь все без изменений. Привычным нажатием на Alt + F11 (или с вкладки Разработчик на ленте) заходите в VBE, добавляете модуль и вставляете код макроса. Запустить код можно по кнопке Run или по нажатию на F5.

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

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

А проблема в том, что по умолчанию в PowerPoint вы не можете даже открыть на чтение код макросов в надстройках . Поэтому идем дальше:

Прописываем в регистре Windows возможность редактирования надстроек

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

  • Нажмите на клавиши Win + R
  • В появившемся окне вводим regedit
  • Идем в папку HKEY_CURRENT_USERSoftwareMicrosoftOffice14.0PowerPointOptions
    (12.0 для Office 2007, 14.0 для Office 2010, 15.0 для Office 2013, 16.0 для Office 2016)
  • Щелкаем в правом окне правой кнопкой мыши –> New -> DWORD
  • Имя = DebugAddins, значение = 1

Перезапустите PowerPoint – теперь вы сможете видеть в среде VBE код макросов из надстроек.

**Как добавлять/Убирать макросы из надстройки PowerPoint **

В Excel вы редактируете код макросов надстроек, сохраняете изменения и можете быть уверены в том, что перезапуске приложения надстройка предстанет перед вами в обновленном виде.

А вот в PowerPoint это не так. Не знаю точно из-за чего сделано это ограничения, но кнопка сохранить не производит никаких изменений в вашу надстройку.

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

  • Идем в презентацию с поддержкой макросов
  • Вносим изменения в код макросов. Сохраняем изменения в презентации
  • В параметрах PowerPoint отключаем подключенную надстройку
  • Сохраняем презентацию с поддержкой макросов как надстройку с перезаписью
  • В параметрах PowerPoint подключаем надстройку

Непростые манипуляции по сравнению с Excel, да?

Проблема с панелью быстрого доступа

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

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

Для себя я остановился на запуске макросов из VBE по кнопке F5.

Если вы все еще не передумали насчет макросов в PowerPoint, то:

Ресурсы по VBA в PowerPoint

Как вы, наверное, догадались – литературы по VBA в PowerPoint как таковой нет. По крайней мере, я не нашел – если поделитесь ссылкой буду рад.

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