Подскажите чайнику

Написал lusin в 11/01/2008 18:30:11

Здраствуйте!
Помогите чайнику стать немного самоваром

Есть задача написать макрос для Corel, который выполняет такую последовательность действий:
1. Рисует контур для фигуры
2. Разбивает получившуюся фигуру на контур и основную фигуру
3. Удаляет исходную фигуру

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

Мой код

Dim i As Integer

Private Sub CommandButton1_Click()
i = Val(TextBox1.Text)
Dim OrigSelection As ShapeRange

Set OrigSelection = ActiveSelectionRange
Dim eff1 As Effect
Set eff1 = OrigSelection(1).CreateContour(cdrContourInside, 0.19685, i, cdrDirectFountainFillBlend, CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), 0, 2)

ActiveSelection.Separate
OrigSelection(1).Delete

UserForm1.Hide
End Sub