Совсем недавно я сообщал о версии макроса по перетаскиванию объектов для РР-2010. Его окончательная доработка, выполненная А.Н. Комаровским, не дала себя ждать.
Анатолию Николаевичу пришлось приложить много усилий, чтобы учителя вновь могли пользоваться этим замечательным интерактивным макросом в полном объеме.
Теперь макрос DragandDrop совместим со всеми 32- и 64-разрядными версиями PowerPoint. Он обратил внимание, что в новых версиях блокировалось действие кнопок Ctrl и Alt.
В итоге макрос стал универсальным.
Все действия по фиксации начального и конечного положения, увеличения и уменьшения объекта, вставки текста, формулы, гиперссылки выполняются во всех версиях.
Скачать макрос DragandDrop
Внимательно ознакомьтесь с инструкцией на слайде. Впоследствии все надписи можно удалить, ввести любые собственные объекты.
Результаты тестирования макроса показали, что объектом для перетаскивания могут вновь стать не только геометрические фигуры, картинки и фотографии, но и надписи, формулы.
Большое спасибо, Анатолий Николаевич!
Огромное Вам спасибо!
Огромное спасибо за вашу бесценную работу!
Огромное Вам спасибо!
Спасибо огромное за макрос!
Огромное спасибо за макрос! Это поистине клад! Как здорово, что есть люди, которые разрабатывают такие чудные «штучки»! Творческих Вам успехов! (И Вам хорошо и нам весело)!
Большое спасибо разработчику макроса! Спасибо за Ваш труд!
Скажите, как сделать чтобы при правильном ответе при переносе издавался один звук , а если соответствие неправильное, то другой?
Здравствуйте, Юрий! Одновременное использование звукового сигнала с данным макросом невозможно
Очень жаль!!!
Уважаемый Георгий Осипович! Поясните, пожалуйста, следующее: чтобы использовать этот макрос, мне всю презентацию нужно делать на этом шаблоне или возможно вставить слайд с содержимым в презентацию? У меня 2013 офис, попыталась сделать, но не получилось. Может быть, не так вставляю? Переход с одной презентации на другую с помощью ссылок исключен, должен быть единый ресурс. Спасибо!
Здравствуйте, Наталья! Да, презентацию надо делать на основе шаблона. А из своей разработки копируете слайды со всем объектами и эффектами анимации и вставляете. Не забудьте произвести манипуляции в настройке действий. То есть активировать макрос.
На нашей клавиатуре есть только правая клавиша Win, слева там FN. Но удалось переделать макрос, чтобы он использовал RWin:
после строки «Public Const VK_WIN = &H5B» добавить
«Public Const VK_RWIN = &H5C»
и внести изменения в Sub DragandDrop:
…
If CBool(GetKeyState(VK_SHIFT) And &HF0000000) And _
(CBool(GetKeyState(VK_WIN) And &HF0000000) Or CBool(GetKeyState(VK_RWIN) And &HF0000000)) Then FollowHyperlink sh: Exit Sub
If CBool(GetKeyState(VK_SHIFT) And &HF0000000) And _
CBool(GetKeyState(VK_TAB) And &HF0000000) Then DragRotate sh: Exit Sub
If CBool(GetKeyState(VK_SHIFT) And &HF0000000) Then DragZoom sh: Exit Sub ‘VK_ALT
If CBool(GetKeyState(VK_WIN) And &HF0000000) Or CBool(GetKeyState(VK_RWIN) And &HF0000000) Then DragInput sh: Exit Sub
При переименовании файлов макросы передвижения объектов перестают работать? Я меняю содержимое файла и сохраняю под новым именем. Макрос перестаёт работать. Я сделал обыкновенное перетаскивание без закрепления на определённое место. чтобы исключить подсказку на уроке.
Здравствуйте.
У меня вопрос не про этот конкретный макрос, но больше не знаю к кому обратиться.
Нашла макрос для создания интерактивной игры по типу Мемори (поиск парных карточек).
Сделала свою игру, все работает на компьютере.
Но на интерактивной доске почему-то не работает, картинки не реагируют на нажатие с доски.
Хотя с другими играми, в которых макрос не используется, а вставлена штатная анимация PowerPoint, таких проблем нет. Играем с детьми на интерактивной доске, все работает, как надо.
Только с игрой Мемори, где использован макрос такая проблема. Приходится просить детей показывать карточки, которые они хотят открыть, и самой нажимать с ноутбука на эти карточки, чтобы они открылись.
Может, Вы сможете подсказать, в чем здесь проблема? Как-то, может, доску надо специально настраивать под макросы.
Доброе утро, Надежда! Вы можете прислать мне презентацию с данным макросом? Только разобравшись, я смогу ответить на Ваш вопрос.
Здравствуйте, после переустановки старого «Офиса» на новый 2019г, не работает Drag&Drop ни на ноутбуке, ни на интерактивном столе. Что только не пробовала — бесполезно. Думаю, что для Офиса версии 2019 не адаптирован данный шаблон? Что делать?
Здравствуйте, Инга! Какую версию Drag&Drop используете? Шаблон с самой новой версией можно взять здесь:
http://didaktor.ru/drag-and-drop-potryasayushhie-usovershenstvovaniya/
Спасибо! Работает!!! Ура!