Использование макросов в powerpoint

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

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

Цель урока: закрепить практические навыки создания макросов на языке 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 шрифт полужирный, размер 18 ForeColor Цвет шрифта произвольный 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 для этих целей используются надстройки и кнопки на панели быстрого доступа.

Читайте также:  За что банит яндекс сайты 2015

В 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 как таковой нет. По крайней мере, я не нашел – если поделитесь ссылкой буду рад.

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

Ссылка на основную публикацию
Adblock detector