Макрос на VBA для CorelDraw

Необходим макрос для автоматического выставления номера цвета на объектах

Т.е. (по аналогии с прикрепленным изображением) :

Если объект залит голубым (или близким к нему) = сделать его бесцветным и по середине поставить цифру 1 в области объекта

Если залит желтым (или близким к нему) = сделать бесцветным и поставить цифру 2 в области объекта

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

Пишите цену и сроки.