коды для макросов в powerpoint
Как сделать макросы в презентации powerpoint?
А теперь разберем процесс создания подобного теста. Он будет разбит на три этапа:
Создание макросов для автоматизации
Для начала нам нужно включить вкладку «Разработчик». Можно обойтись и без нее, но раз уж мы работаем с макросами, то будем действовать по канонам. Переходи в «Файл» — «Параметры» — «Настройка ленты» и ставим галочку напротив «Разработчик«.
Теперь перейдем на появившуюся на ленте вкладку и откроем окно редактора Visual Basic (можно сделать это сочетанием клавиш Alt+F11). В редакторе нам нужно будет добавить к нашей презентации новый модуль. Для этого кликните правой кнопкой мыши по нужной презентации в окне слева, выберите «Insert» — «Module«. В правой части появится белое окно модуля. Сюда мы и будем вводить весь наш код.
На этом этапе можно сохранить презентацию (хоть она пока и пустая). Главное, что нужно сделать — указать при сохранении формат Презентация PowerPoint с поддержкой макросов. В ином случае, введенный впоследствии код просто не будет сохранен. Итак, в нашей презентации будут:
Нам понадобится возможность подсчитывать правильные и неправильные ответы. Для этого создадим переменные CorrAns и WrongAns. Также нам на одном из этапов понадобится перебирать объекты на слайде (переменная shp). Ну и в зависимости от результатов, мы будем выводить итоговое сообщение (переменная Message). Здесь и далее мы будем давать код в виде скриншотов для экономии места. Скопировать код Вы сможете непосредственно из готовой презентации, ссылку на которую найдете в конце статьи.
Для объявления этих переменных введите в модуль код:
Кстати, весь зеленый текст (ему всегда предшествует апостроф) вводить не обязательно. Это просто комментарии для понимания работы кода.
Для автоматизации будут использованы следующие макросы:
1) Start. Этот макрос будет запускать начало тестирования и обнулять счетчики ответов. Его код:
2) ExitTest. Этот макрос будет завершать тестирование и выходить из режима слайд-шоу.
3) ShowAnswer. Этот макрос будет подсвечивать зеленым цветом правильные, а красным — неправильные варианты. Обратите внимание на имена Corr, Wrong1, Wrong2, Wrong3. Это имена прямоугольников с вариантами ответов. Один правильный и 3 ошибочных. Имена, указанные в коде мы потом присвоим элементам на слайде. Можно делать и в обратном порядке, но в нашем случае быстрее будет сначала создать код, а потом рисовать слайды.
4) HideAnswer. Этот макрос возвращает вариантам ответов стандартную заливку. В отличие от предыдущего макроса, в котором мы обращались к каждому конкретному объекту и делали ему заливку, здесь мы в цикле перебираем все объекты слайда и если имя объекта похоже на нужное, осуществляем его перекрашивание.
5) Corr. Этот макрос будет запускаться, если пользователь выбрал правильный вариант. Сначала он спросит, уверен ли тестируемый в своем выборе (чтобы исключить случайные нажатия) и если да, то увеличит число правильных ответов на 1, вызовет макрос подсветки правильного ответа, выведет сообщение о том, что ответ верный, а затем вернет стандартны цвет ответам и перейдет на следующий вопрос.
6) Wrong. Макрос, аналогичный предыдущему, но только для неверных ответов.
7) Result. Наконец, последний макрос сформирует итоговые результаты. Он покажет, сколько ответов было дано верно, сколько неверно, процент успешности и, если правильных ответов больше 80%, напишет фразу «Поздравляем! Тест пройден!», а если нет, то фразу «Это фиаско, братан!».
Ну вот и всё. Самое сложное позади. Введен весь нужный код, теперь можно приступить к созданию самих слайдов.
Подготовка исходных слайдов
Как мы уже говорили, наш тест будет состоять из стартового слайда с кнопкой запуска, слайдов с вопросами, слайда с сообщение об окончании теста и итогового слайда с результатами тестирования.
Выберите подходящий на Ваш взгляд макет («Файл» — «Создать«) и приступайте к созданию. На титульном слайде разместите заголовок с названием теста и кнопку для запуска тестирования. Это может быть любая фигура с текстом, картинка или просто надпись. Всё на ваше усмотрение. В нашем примере кнопка состоит из 3 частей:
Теперь кликните на прямоугольник кнопки и выберите «Вставка» — «Действие«. На вкладке «Щелчок мышью» выберите «Запуск макроса» и укажите из списка макрос Start. Теперь в режиме слайдшоу при клике на прямоугольник будет запускаться макрос Start, а это, как мы помним, макрос начала тестирования.
Чтобы прямоугольник, надпись и картинка стали единым объектом (и удобнее перемещались, изменялись в размерах и т.д.), нужно сгруппировать элементы. Выделите мышкой все объекты, а затем кликните на выделенных объектах правой кнопкой мыши и выберите «Группировать» — «Группировать«.
Слайды с вопросами
Теперь нужно создать слайды с вопросами. Сначала полностью подготовим один такой слайд, чтобы потом продублировать его и на остальных уже просто поменять вопросы и варианты ответов (вот зачем мы сначала создали макросы — чтобы не назначать их на каждом слайде вручную, когда всё будет готово).
В верхней части пишем номер вопроса. Под ним — сам вопрос. Ниже добавляем четыре прямоугольника одинакового цвета и размера, аккуратно размещаем их и в каждом вводим варианты ответа. Для ввода текста в прямоугольник, просто выделите его и начинайте печатать. Затем, не снимая выделения с прямоугольника, можете изменить цвет и размер шрифта, выбрать другую гарнитуру и применить иные настройки. Получится что-то вроде этого:
Теперь нужно включить отображение области выделения объектов. На вкладке «Главная» выберите «Выделить» — «Область выделения«.
В результате в правой части окна программы появится панель, на которой будет отображен список всех объектов на слайде.
Когда Вы кликаете на какую-то фигуру на слайде, в области выделения подсвечивается ее название. Выделите прямоугольник с правильным ответом, чтобы его название выделилось на панели справа. Кликните на нем еще раз в области выделения, чтобы перейти в режим переименования, и введите имя Corr. Для неверных ответов задайте имена Wrong1, Wrong2 и Wrong3 (если помните, это именно те имена, что мы указывали в коде).
Теперь нужно к слайду с правильным ответом подключить макрос Corr, а ко всем остальным — макрос Wrong, как мы делали это выше с макросом Start. Запомните, в каком именно прямоугольнике введен верный ответ (в нашем случае — в левом нижнем).
Когда слайд готов, его нужно продублировать столько раз, сколько у вас будет вопросов. Чтобы сделать копию слайда, кликните на нем в левой части окна в списке слайдов и нажмите Ctrl+D нужное количество раз.
На каждой новой копии слайда введите нужный вопрос и нужные варианты ответов. Правильные ответы вводите в тот прямоугольник, в который вводили в первый раз (так как у него уже задано верное имя в области выделения и назначен макрос правильного ответа). После ввода ответов, можете перемешать прямоугольники в любом порядке, чтобы правильный ответ не был на каждом слайде в одном и том же месте.
Слайд с сообщение об окончании тестирования
О том, что вопросы кончились, будет оповещать вот такой слайд.
Как Вы догадались, на прямоугольник с надписью «Посмотреть результат» назначен макрос Result.
Слайд с результатами
Слайд результатов мы оформили вот так:
Вы можете оформить так, как считаете нужным, но чтобы слайд был обновляемым, нужно обязательно сделать следующее:
При оформлении слайда заранее задайте настройки размера шрифта во всех фигурах, так как в дальнейшем макрос будет просто записывать туда новые значения, а форматирование останется прежним. Если у вас 15 вопросов, то сделайте шрифт таким, чтобы число 15 влезало в фигуру и т.д.
Настройка работы слайдшоу
Осталось немного. Теперь нужно настроить слайд-шоу так, чтобы тестируемый не мог переключаться на предыдущие слайды, менять ответы и т.д. Для этого кликаем на любой слайд и идём на вкладку «Переходы«. Там ставим вот такие настройки и нажимаем «Применить ко всем«.
Затем идем на вкладку «Слайд-шоу» и выбираем «Настройка слайд-шоу«.
Выбираем вариант показа «Автоматический (полный экран)»
Теперь у пользователя нет возможности перейти между слайдами, кроме как ответив на заданный вопрос. Выйти из презентации он также может только нажав клавишу Esc. Если хотите лишить его и этой возможности — отберите клавиатуру. Всё равно для теста нужна только мышь 😉
Запускается тест при старте демонстрации (клавиша F5). Файл-пример из этого урока качайте по ссылке. После открытия файла не забудьте разрешить запуск макросов.
Вот так на практическом примере мы разобрали сразу несколько полезных приемов работы в Power Point и VBA. Надеемся, Вы нашли для себя что-то полезное.
Поддержать наш проект и его дальнейшее развитие можно вот здесь.
Ваши вопросы по статье можете задавать через нашего бота обратной связи в Telegram: @KillOfBot
С уважением, команда tDots.ru
Связанный: Запуск VBA код при запуске презентации
Урок 2. Использование макроса Drag&Drop (Х. Хофман) в презентации с паззламиСалтанат Салиш
Урок разработан в рамках МК «Технологический прием «Паззлы» Ссылка на скачивание шаблона презентации с…
Word для начинающих. Урок 25: Создание и использование макросовДмитрий Кивганов
В уроке разбирается как не разбираясь в программировании создать макрос для выполнения трудоемких или…
Урок по Powerpoint. Создание вкладокМаксим Семенихин
Урок №2. Создание вкладок в презентации. Создание нестандартных презентаций PowerPoint.
Как написать макрос в Excel — создание и запись VBA макросов в Excel 2013/2016. Урок 3Skill.im — качественные видеокурсы
VBA для Excel с нуля — БЕСПЛАТНЫЙ Базовый курс (32 видео урока): ▻www.skill.im/vbabas В этом курсе Вы узнаете: Макрос…
Чирков Марк 6522 Макросы Excel, Word, Power PointMark Chirkov
О чем это видео: Microsoft Office.
Запись макроса в Microsoft Office Excel 2010 (27/50)TeachVideo
www.teachvideo.ru/ — тысячи обучающих роликов на нашем сайте бесплатно! Макрос представляет собой команду…
Работа с макросами. Включение и отключение макросов. Использование уровней безопасности в Word 2013.TeachVideo
Оригинал и полная запись находится по адресу: www.teachvideo.ru/v/10311.
Макросы. Экспорт и импорт данныхInternetUrok.ru
Пройти тест по теме: goo.gl/KSCX9t Домашнее задание от Домашней Школы InternetUrok: goo.gl/r8cUgd Задать вопрос к…
MS Word коротко о макросах и о том как они могут облегчить жизньVigil IT-video
В этом видео я решил немного рассказать о такой замечательной вещи как макросы. Опытным пользователям и…
Макроси. Створення макросів та їх використанняРечиц Евгений
Инструкция по созданию тестаNatal Bath
Данная инструкция представляет создание компьютерного теста в PowerPoint с использованием языка VBA.
Запис простого макросу в WordВиталий Бараболиков
Створення і використання макросів в Word для автоматизації роботи з текстом і виконання однотипних дій.
EXCEL 2010 Запись макроса.MrAstambur
Урок №5 Вставка SmartArt и WordArt в программе PowerPointАлла Госсман
Урок №5 Вставка SmartArt и WordArt в программе PowerPoint.
100 Запуск макроса из макроса в AccessСИЛА ЗНАНИЯ
MS Power Point онлайн тест тузобузWELL KG
Как сделать тест онлайн с помощью ms power point.
Как сохранить презентацию PowerPoint в видеоКомпьютерная Грамота
Видеоинструкция о том, как сохранить PowerPoint-презентацию в видео формате и при необходимости дополнить ее…
Презентация МакросыПопов Дмитрий
Эту презентацию в формате ppt можно скачать здесь: school-help.ru/prezentacii/informatika/852-prezentaciya-makrosy.
Макрос для Word (Иванов 6522)Иван Иванов
Создание макроса в вордСергей Каюров
Макрос для удаления ссылок на КонсультантПлюсНаталья Усольская
Макрос Microsoft Word для удаления ссылок, остающихся после копирования текста из системы КонсультантПлюс (как…
0001 Что такое макросы MS WordАндрей Поляков
Поменять местами фотографии на слайдеИван Иванов
С помощью макроса легко обновить фотографии, рисунки на слайде одним нажатием кнопки.
Уроки по PowerPoint #1IPMASTE
Как сделать презентацию PowerPoint.
Кудинов 6522 — макросы,гугл таблицы,документы,сайт итдAlexey Kudinov
00:00 — Google Документ 03:59 — Google Таблица 05:21 — Google форма 07:11 — Google Скрипт 08:08 — Макрос Excel 09:28 — Макрос Word 10:27 — Макрос…
МК 1. Урок 3. Как создать слайд-шоу в Power PointСалтанат Салиш
Секреты Excel: макросы, кнопки, переменныеSpecialistTV
Хотите узнать об Excel то, о чем не подозревают не только новички, но и зачастую продвинутые пользователи?…
Макросы,сайт итд. Домашина Анастасия 6522Alexey Kudinov
00:00 — Дополнения Google документы,таблицы,формы 07:35 — Google script 09:56 — google сайт 17:51 — макросы excel, word, powerpoint.
Как сделать слайд шоу из фотографий с музыкой в PowerPoint?chajnikam.ru
Подпишись на канал! До 1000 подписчиков осталось совсем немного 🙂 В видео рассмотрим, как сделать слайд шоу…
ЗАНЯТИЕ 2 СОЗДАНИЕ ПРЕЗЕНТАЦИЙ В POWERPOINT. Презентацияmsofficeprowork
Записанная в режиме показа презентация к занятию 2 курса Само занятие и скачать презентацию можно по адресу…
Диаграммы в Excel, создание диаграммы с помощью макросаIvan Karpov
Как в Excel создать диаграмму с помощью макроса. Наш сайт: pcandlife.ru Ссылка на макрос: yadi.sk/d/lY4PUBoutUiGj TWITTER:…
создание презентации в powerpointwin7ka
Привет всем кто хочет научиться работать в программе по созданию презентаций powe rpoint. В этом уроке я покажу…
Урок по PowerPoint 2013 | Первые шаги в PowerPoint 2013 | PowerPoint 2013 Для начинающихВладимир Тимоненков: ПРЕДСТАВЛЯЕТ
В этом уроке мы изучим основы работы в PowerPoint 2013. Подписывайтесь на канал: tvclip.biz/channel/UCNNvDr0QfoTfH7oPXyCxrlw…
MS Powerpoint — Macro/VBA Code Basic Samples TutorialSuperNikestar
Am Using MS Powerpoint 2010 Like Me on Facebook facebook.com/pages/Nikki-Lopez/270681279629057 Here are the Codes… Code For …
Макросы в QlikView Изменение цвета ярлыка с помощью VB макросаQlikView и Qlik Sense учебные материалы, готовые решения, обучение
Программирование в QlikView? Много учебных материалов и курсов в разделе «Скачать» на www.biconsult.ru Изменение…
How to create Macros in MIcrosoft Powerpoint 2010Ernie Drumm
This video is going to show you how to create dialogue boxes in Microsoft PowerPoint 2010.
Introduction to Macro Programming In Microsoft PowerPoint 2010 — Addition of Two NumbersKarthik Dakshinamurthi
How to enable the Developer Tab, How to enable Macro, How to create a Macro, How to Run a Macro, How to add a micro in Ribbon.
Microsoft Excel для Начинающих (Часть 5)Андрей Сухов
Подробный курс по Word, Excel и Powerpoint — goo.gl/hZwKzq В пятом видеоуроке по основам программы Microsoft Excel мы окончател…
MS Excel — Ввод формулВячеслав Карасиков
В этом уроке показывается простой способ записи формул в Excel так, чтоб не запутаться в скобках.
Tutorial 2 — Assign Macro to a ShapeL Fell
This will allow you to assign a Macro to a shape in Microsoft Powerpoint. The user will be able to click the shape to enter the username before completing your …
VBA для Excel (фрагмент онлайн-урока). Тема: Объявление переменных. Типы переменныхУчебный центр Бейсик
Фрагмент онлайн урока по курсу «Основы программирования Visual Basic for Applications (VBA) для Excel. Уровень 1.» Тема «Объявле…
Microsoft Excel для Начинающих (Часть 9)Андрей Сухов
Подробный курс по Word, Excel и Powerpoint — goo.gl/hZwKzq В заключительном девятом уроке по основам программы Microsoft…
Word Exsel Power Point👆Как активировать❓С компьютером на Ты
Активатор ВРЕМЕННО НЕ АКТУАЛЕН. ОЖИДАЙТЕ ОБНОВЛЕНИЯ Компьютерные Знания goo.gl/SkhbRc Размещение …
Видео #4. Форматирование в Эксель. Курс по работе в Excel для начинающихExcel-Master
Скачать видеокурс: excel.pcsecrets.ru Подробный курс по Word, Excel и Powerpoint — pcsecrets.ru/course_office2010 В четвертом видеоур…
(Promo) Unlock Excel VBA and Excel Macros Course — Now availableLeila Gharani
Link to complete course ▻ bit.ly/LeilaVBA This is the promo video for my online Excel VBA & Macros course which will take you from beginner, all the way …
Организация интерфейса. Новое в Microsoft Office Word 2013. Настройка учетной записиTeachVideo
Оригинал и полная запись находится по адресу: www.teachvideo.ru/v/10276.
Сбой активации продукта. Активируем MS Office. Активатор Windows | Office скачать АктивацияВидеоуроки по информатике
Решаем проблему «Сбой активации продукта» Скачать программу: yadi.sk/d/npJd4IyW3RafN9.
Урок № 4 Создание презентаций в программе PowerPoint2013. ДиаграммыЗаработок в интернете для начинающих
Из видеоурока Вы узнаете, как добавлять диаграммы в презентацию в программе PowerPoint2013 Клуб Offerinvest — пассивный…
065. Ms Power Point. Урок 65. ТаблицыАлександр Бурков
Шаг 2: Создание макросов
Создание теста в powerpoint
Очень эффектно при использовании PowerPoint, особенно в образовательном процессе, использование тестов. Например, задан вопрос с несколькими вариантами ответов. При правильном ответе есть возможность перейти к следующему слайду. При неверном ответе получить сообщение «Неверно, попробуйте еще раз!».
Такие тесты можно создавать в PowerPoint с помощью Visual Basic. И это не очень сложно, как могут подумать многие. Даже если есть полное непонимание принципов программирования код можно, в конце концов, найти в интернет.
Шаг 1: Создание слайдов с вопросом и несколькими вариантами ответов
Первый шаг заключается в создании нескольких слайдов с вопросами. В заголовке слайда введите вопрос. Введите первый вопрос в заголовке заполнителя. Перейдите в автофигуры и в разделе «Управляющие кнопки» выберите «Управляющая кнопка: настраиваемая»:
Щелкните по слайду. Появится диалоговое окно «Настройка действия» и кнопка. Окно закройте щелкнув «Отмена» а кнопку разместите в нужное место, задав ей размер с учетом того, что туда будет вставлен текст. Щелкните по кнопке правой кнопкой мыши для вызова контекстного и выберите «Изменить текст».
Появится курсор ввода текста. Введите туда правильный вариант ответа. Продублируйте кнопку два раза и измените текст на неправильные варианты ответа. Таким образом сделайте еще два слайда. Должно получится несколько слайдов примерно такого вида:
Шаг 2: Создание макросов
2. В диалоговом окне «Параметры PowerPoint» выбираем пункт «Основные» и ставим галочку «Показывать вкладку «Разработчик» на ленте»:
3. Переходим во вкладку «Разработчик» и выбираем «Visual Basic»:
И вставляем код для неправильного ответа:
Sub Wrong()
MsgBox («Ответ неверный. Попробуйте еще раз»)
Далее – фрагмент кода для правильного ответа:
Sub Right()
SlideShowWindows(1).View.Next
End Sub
Фрагменты схожи, только во втором есть переход к следующему слайду.
Для того, чтобы презентация не завершилась выходом на последнем слайде добавим для правильного ответа код:
Sub RightLast()
В итоге у нас получается следующая конструкция:
Шаг 3: Подключение макросов для кнопок
Прейдем из редактора VBA в PowerPoint. Для щелкаем по значку «View Microsoft PowerPoint»:
Редактор Visual Basic отставим открытым в фоновом режиме. В PowerPoint сохраним презентацию, это коснется и макросов. Сохраняем как презентацию с поддержкой макросов:
Переходим к кнопке с правильным ответом. Щелкните правой кнопкой мыши на кнопку и выберите «Гиперссылка» из контекстного меню:
Такую же процедуру проделаем для всех кнопок «Неправильный ответ», только подключаем макрос «Wrong».
Прежде чем перейти к оставшимся слайдам и назначить соответствующие макросы на кнопках этих слайдов, проверьте работоспособность кнопок на первом слайде. Для этого запустите презентацию в режим просмотра и нажмите на неправильный ответ. Должно появиться сообщение «Ответ неверный. Попробуйте еще раз». Нажмите OK, чтобы закрыть окно:
Проверьте другие неправильные ответы на слайде, чтобы убедиться, что они также работают. Наконец, выберите правильный ответ. На этот раз, текстовое поле сообщение должно означать, что вы выбрали правильный ответ. Нажмите кнопку ОК и слайд-шоу автоматически перейдет к следующему слайду:
Если первый слайд работает нормально то проверьте остальные. На последнем слайде, назначьте для правильного ответа макрос «RightLast», чтобы по завершении слайда остаться на последнем слайде. Для правильного ответа на последнем слайде мы должны получить сообщение «Поздравляем!» и остаться на этом слайде после нажатия кнопки «Ок»: