Нумерация векторных объектов одной группы

Валерия / 12.03.2013, 18:43
Форум: 
Макросы и скрипты
Версия программы: 
16.0.0.707

Всем добрый день! Помогите пожалуйста найти способ нумеровать объекты по типу детской раскраски: есть куча векторных контуров (разных), нужно проставить в каждом одну и ту же цифру. Есть ли способы это сделать? Может существуют макросы для подобных процедур?

Sancho / 12.03.2013, 20:12

Может быть Внутренняя ссылка просто не совсем понятно что нужно.

Валерия / 12.03.2013, 20:18

У меня множество (допуским 100 шт) объектов, просто замкнутых контуров разного размера, в которые нужно проставить цифру (допустим 1). Наверняка это можно сделать просто, но я к сожалению не знаю как). Макрос, который Вы указали делает такую нумерацию?

Sancho / 13.03.2013, 00:14/00:15

Валерия, вообще CardGenerator рассчитан на более сложные задачи.
Вот вам код макроса который сделает то что вам нужно:

Sub MegaPaste()
  Dim s As Shape, p As Shape
  For Each s In ActiveSelectionRange
    Set p = ActiveLayer.Paste
    p.AlignToShape cdrAlignHCenter + cdrAlignVCenter, s, cdrTextAlignBoundingBox
  Next
End Sub

Как установить:
В CorelDRAW жмём Alt+F11, в открывшемся редакторе слева в списке ищем GlobalMacros, разворачиваем, в нём разворачиваем папку Modules, кликаем на появившийся CorelMacros два раза, что бы открылось окно редактора кода. В него, в конец, вставляем мой код, отбив его абзацами от того кода что будет в окне. Закрываем редактор.

Как пользовать:
Рисуете нужную цифру, например 1, вырезаете её в буфер (Ctrl+X), выделяете вашу кучу объектов и запускаете макрос в меню Инструменты > Макросы.

Валерия / 13.03.2013, 13:16

Оболдеть!))) Всё работает! Спасибо большое!!!