Автором дополнений к макросу стал главный инженер-программист отдела автоматизации ГБУК Республики Марий Эл «Республиканская детско-юношеская библиотека им. В.Х. Колумба»  Олег Валентинович Комлев.

Первые комментарии Олега Валентиновича в статье об универсальной версии макроса по перетаскиванию объектов, конечно, оказались мало понятными для учителей, которые не имеют навыков работы в Visual Basic.

Прежде всего, автор дополнений добавил реакцию макроса на левую и правую клавишу Win.

Один из читателей спрашивал, как сделать так, чтобы при правильном ответе при переносе издавался один звук , а при несоответствии — другой.

Теперь и это можно сделать.

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

Как работать с обновлённым макросом по перетаскиванию объектов

Для того, чтобы воспользоваться макросом Drag and Drop, загрузите шаблон по данной ссылке.

При первом открытии презентации программа сделает вам запрос-разрешение на работу с макросом. Нажмите Включить содержимое.

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

Для этого необходимо выделить данный объект и в главном меню нажмите Вставка — Действие.

В открывшемся окне нажмите Запуск макроса и Drag and Drop станет активным. Такую процедуру необходимо выполнить со всеми объектами, которые предстоит перетаскивать.

Для того чтобы обозначить начальное и конечно место объектов, запустите презентацию. Нажмите клавиши Shift + Alt и щёлкните по выбранному объекту левой кнопкой.

Вы получите информацию о начальном положении объекта. Теперь не нажимая левую кнопку, поведите за собой с помощью курсора объект в то место, куда его необходимо перетащить. Теперь снова нажмите клавиши Shift + Alt и щёлкните по выбранному объекту.

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

Звуковое сопровождение

Вставьте любую фигуру. В шаблоне, например, это надпись «Звук». Я вставил прямоугольник. Вывел его в угол. Чтобы не мешал, сделал его невидимым.

То есть в формате фигуры заливку и линию я сделал прозрачными на 100%.

Впрочем, есть и другой вариант: можно просто фигуру сделать  маленькой и задвинуть куда-нибудь в угол. Тогда вы при редактировании не будет искать невидимую фигуру. Тем более, при демонстрации этот «контейнер звуков» всё-равно не мешает, т.к. скрыт эффектом анимации.

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

В эту фигуру через меню «Вставить\Действие» добавить звуки. Один, реагирующий на правильный ответ Настройка действия — Щелчок мышью.

Другой звук, реагирующий на неправильный ответ, настраиваете Настройка действия — По наведению указателя мыши.

Первый звук будет проигрываться, если объект перетащен в правильное место, второй звук — при возврате в исходное место. Обратите внимание: объект на оба звука один. Олег Валентинович назвал этот объект «контейнером звуков».

При желании вы можете добавить только один из звуков.

Внимание!

Чтобы фигура со звуками не мешала, её нужно скрыть в настройках анимации.  Добавьте эффект Выход — Исчезновение.  Начало: С предыдущим. Этот эффект должен выполняться раньше других (должен быть самым верхним в списке эффектов анимации или единственным в этом списке). То есть разместите объект на передний план. И уберите его подальше, чтобы не мешал.

Важное ограничение: фигура со звуками должна быть добавлена ПОСЛЕ всех элементов слайда, иначе звуков не будет. Поэтому лучше добавлять этот «контейнер звуков» в последнюю очередь, а после него новых фигур не вставлять (изменение размера, цвета, положения и других параметров уже существующих фигур делать можно, это не влияет на порядок элементов на слайде). Если всё-таки потом пришлось добавить новые элементы, нужно «перевставить» фигуру со звуками: для этого, например, ее можно выделить и нажать Ctrl-X,Ctrl-V (т.е. вырезать и вставить обратно через буфер обмена

Кто впервые знакомится с данным макросом, внимательнее ознакомьтесь с записями шаблона.

Используйте различные комбинации клавиш для получения различных эффектов.

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

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

Большое спасибо, Олег Валентинович!