ПЕРЕТАСКИВАНИЕ ОБЪЕКТОВ: универсальная версия макроса

peeret

Совсем недавно я сообщал о версии макроса по перетаскиванию объектов для РР-2010. Его окончательная доработка, выполненная А.Н. Комаровским, не дала себя ждать.  

Анатолию Николаевичу пришлось приложить много усилий, чтобы учителя вновь могли пользоваться этим замечательным интерактивным макросом в полном объеме.

Теперь макрос  DragandDrop совместим со всеми 32- и 64-разрядными версиями PowerPoint. Он обратил внимание, что в новых версиях блокировалось действие кнопок Ctrl и Alt.

macros

В итоге макрос стал универсальным.

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

Скачать макрос DragandDrop

Внимательно ознакомьтесь с инструкцией на слайде. Впоследствии все надписи можно удалить, ввести любые собственные объекты.

Результаты тестирования макроса показали, что объектом для перетаскивания могут вновь стать не только геометрические фигуры, картинки и фотографии, но и надписи, формулы.

Большое спасибо, Анатолий Николаевич!

Комментарии к “ПЕРЕТАСКИВАНИЕ ОБЪЕКТОВ: универсальная версия макроса

  1. Нина говорит:

    Огромное спасибо за макрос! Это поистине клад! Как здорово, что есть люди, которые разрабатывают такие чудные «штучки»! Творческих Вам успехов! (И Вам хорошо и нам весело)!

  2. Юрий говорит:

    Скажите, как сделать чтобы при правильном ответе при переносе издавался один звук , а если соответствие неправильное, то другой?

  3. Наталья говорит:

    Уважаемый Георгий Осипович! Поясните, пожалуйста, следующее: чтобы использовать этот макрос, мне всю презентацию нужно делать на этом шаблоне или возможно вставить слайд с содержимым в презентацию? У меня 2013 офис, попыталась сделать, но не получилось. Может быть, не так вставляю? Переход с одной презентации на другую с помощью ссылок исключен, должен быть единый ресурс. Спасибо!

    • Георгий говорит:

      Здравствуйте, Наталья! Да, презентацию надо делать на основе шаблона. А из своей разработки копируете слайды со всем объектами и эффектами анимации и вставляете. Не забудьте произвести манипуляции в настройке действий. То есть активировать макрос.

  4. Олег говорит:

    На нашей клавиатуре есть только правая клавиша 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

  5. нИКОЛАЙ говорит:

    При переименовании файлов макросы передвижения объектов перестают работать? Я меняю содержимое файла и сохраняю под новым именем. Макрос перестаёт работать. Я сделал обыкновенное перетаскивание без закрепления на определённое место. чтобы исключить подсказку на уроке.

  6. Надежда говорит:

    Здравствуйте.
    У меня вопрос не про этот конкретный макрос, но больше не знаю к кому обратиться.
    Нашла макрос для создания интерактивной игры по типу Мемори (поиск парных карточек).
    Сделала свою игру, все работает на компьютере.
    Но на интерактивной доске почему-то не работает, картинки не реагируют на нажатие с доски.
    Хотя с другими играми, в которых макрос не используется, а вставлена штатная анимация PowerPoint, таких проблем нет. Играем с детьми на интерактивной доске, все работает, как надо.
    Только с игрой Мемори, где использован макрос такая проблема. Приходится просить детей показывать карточки, которые они хотят открыть, и самой нажимать с ноутбука на эти карточки, чтобы они открылись.
    Может, Вы сможете подсказать, в чем здесь проблема? Как-то, может, доску надо специально настраивать под макросы.

    • Георгий говорит:

      Доброе утро, Надежда! Вы можете прислать мне презентацию с данным макросом? Только разобравшись, я смогу ответить на Ваш вопрос.

  7. Инга говорит:

    Здравствуйте, после переустановки старого «Офиса» на новый 2019г, не работает Drag&Drop ни на ноутбуке, ни на интерактивном столе. Что только не пробовала — бесполезно. Думаю, что для Офиса версии 2019 не адаптирован данный шаблон? Что делать?

Добавить комментарий

Ваш e-mail не будет опубликован.