[CDR 2017-2021] Копирование обводки

[izrukvruki]

Есть два фигурных текста (объекты i и inew).
Как можно скопировать обводку с одного на другой?

Я пытаюсь каждый нужный мне параметр скопировать:

Dim inew As Shape
Dim i As Shape
inew.Outline.Color = i.Outline.Color
inew.Outline.Style = i.Outline.Style
inew.Outline.Width = i.Outline.Width
inew.Outline.ScaleWithShape = i.Outline.ScaleWithShape
inew.Outline.BehindFill = i.Outline.BehindFill

Но если первый объект не имел обводки, то в "жирной" строке выдается ошибку...

 

[lev]

Ну так введите проверку

If i.Outline.Type <> cdrNoOutline Then

 

[splxgf]

Объясните в чем проблема... ошибка это не проблема On Error Goto вам в руки.

 

[_MBK_]

А зачем, собственно, эти танцы с бубнами? Ведь у обводки есть прекрасный метод CopyAssign позволяющий скопировать все свойства скопом

 

[izrukvruki]

Спасибо огромное
строка решила задачу
inew.Outline.CopyAssign i.Outline

Подумал, а можно ли вообще ВСЕ свойства скопировать таким образом (заливку, обводку, положение, тронсформацию, эффекты и пр)?

 

[_MBK_]

Подумал, а можно ли вообще ВСЕ свойства скопировать таким образом

Может, проще объект продублировать?