[CDR X5-X8] Доработка макроса. Вставка символа в границах объекта.

[ilylylubov]

Добрый день!
Есть такой макрос.
Sub New Macro()
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
Проблема в том, что текстовые символы часто вставляются вне границ объекта (если он имеет сложную форму). Можно ли добавить в макрос параметр, что бы он вставлял символ внутри границ объекта, а не вне их (не обязательно даже в центре объекта)

 

[_MBK_]

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

Проблема в том, что задача алгоритмически для общего случая нетривиальна. Вот разбор подобной проблемы.
Впрочем, более-менее рабочее решение есть

 

[ilylylubov]

Спасибо! Очень интересно, попробую