Всех приветствую!
Столкнулся с такой проблемой: Беру объект с эффектом Contour, сепарирую и не могу получить доступ к получившемуся объекту. Т.е. к Control Shape доступ еcть, а к тому, что было ContourGroup — нет.
Причем, подобный код работает с эффектом Extrude
Как выбрать то, что получилось после сепарирования контура?
Столкнулся с такой проблемой: Беру объект с эффектом Contour, сепарирую и не могу получить доступ к получившемуся объекту. Т.е. к Control Shape доступ еcть, а к тому, что было ContourGroup — нет.
Код:
If sH.Effects(1).Type = cdrContour Then
Set tmp = sH.Effects(1).Contour.ContourGroup
tmp.CreateSelection
tmp.Separate
tmp.CreateSelection ' ошибка, не выбирает
endif
Код:
If sH.Effects(1).Type = cdrExtrude Then
'sH.Effects(1).Extrude.ExtrudeGroup.Selected = True
Set tmp = sH.Effects(1).Extrude.ExtrudeGroup
tmp.CreateSelection
tmp.Separate
tmp.CreateSelection ' все выбирается
endif