Опубликовано

  • 29.03.2013
  • в 04:15 ПП
  • Георгий

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

12


Мар29

peeret

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

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

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

macros

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

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

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

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

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

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


Похожие статьи:


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

  1. Елена Емельянова:

    Огромное Вам спасибо!

  2. Наталья:

    Огромное спасибо за вашу бесценную работу!

  3. leila:

    Огромное Вам спасибо!

  4. ра:

    Спасибо огромное за макрос!

  5. Нина:

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

  6. Антонина:

    Большое спасибо разработчику макроса! Спасибо за Ваш труд!

  7. Юрий:

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

  8. Наталья:

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

    • Георгий:

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

  9. Олег:

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

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

Дидактор работает на WordPress, тема FREEmium Theme.