Макрос DuplicateOrderBack

Sancho / 01.10.2010, 13:01/00:41
Форум: 
Макросы и скрипты
Есть в Иллюстраторе очень удобная мелочь - вставка скопированного под текущий выделенный объект. Решил сделать подобие для CorelDRAW.
Этот макрос дублирует выделенный объект так, что его дубль помещается под него и выделяется. Вешаем на Ctrl+B и кайфуем.

Sub DuplicateOrderBack()
        Dim sr As ShapeRange, s As Shape
        Set sr = ActiveSelectionRange
        If sr.Shapes.Count <> 1 Then Exit Sub
        ActiveDocument.ClearSelection
        Set s = sr(1).Duplicate(0, 0)
        s.OrderBackOf sr(1)
        s.AddToSelection
End Sub

А если нужно именно вставлять из буфера, тогда меняем строку
Set s = sr(1).Duplicate(0, 0) на Set s = sr(1).Layer.Paste

kuterma2 / 01.10.2010, 13:26
Нужная вещь. Хоть и мелочь, а приятно!!!!!
Des425 / 01.10.2010, 21:22
Согласен, мелочь а приятно!
dastin / 02.10.2010, 17:23
Может я зануда =)
Но

[+] на цифровой клавиатуре при выделенном объекте
(т.е. копия объекта над оригиналом)
Alt+click
( выделение объекта лежащего под выделенным)

не делает того же?

Второе применение - представляется более полезным - т.к. из буфера втыкается всегда на самый верх

kuterma2 / 04.10.2010, 12:07
dastin,
а
[+] на цифровой клавиатуре при выделенном объекте
- никто и не отменял!
а DuplicateOrderBack в этом случае "экономит" лишний "альт-клик"
Sancho / 04.10.2010, 14:52/14:55
Кстати в Люстре же ещё есть возможность вставить над выделенным. Тоже удобненько. Если не ошибаюсь то там это Ctrl+F, а вот код для Корела:

Sub PasteOrderFront()
      Dim sr As ShapeRange, s As Shape
      Set sr = ActiveSelectionRange
      If sr.Shapes.Count <> 1 Then Exit Sub
      ActiveDocument.ClearSelection
      Set s = sr(1).Layer.Paste
      s.OrderFrontOf sr(1)
      s.AddToSelection
End Sub

П.С. Посетила меня мысля: В Цс5 люстре есть очень удобная фигня - режимы: рисовать под, ...над, и ...в. Такое вполне можно реализовать и в Кореле. Если будет когда время, может сделаю. :)