Corel Draw VBA как объединить кривые?

Question

[Виталий]

Здравствуйте!
Мне нужно сделать weld для нескольких кривых и потом разъединить кривую на отдельные (ctrl+K).
Средство записи макросов работает для частного случая, на других кривых макрос уже не действует.

Sub Macro1()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim s1 As Shape
    Set s1 = OrigSelection(2).Weld(OrigSelection(1), True, True)
    OrigSelection(1).Delete
    OrigSelection(2).Delete
    Dim brk1 As ShapeRange
    Set brk1 = s1.BreakApartEx
End Sub

Comments

[DENIS Kokorev]

Что значит на других кривых? Попробовал твоим макросом - все работает

Answer 1

[Виталий]

Да, неверно выразился - не другие кривые, а другое количество кривых. В моем макросе их 2 и третью кривую он не обрабатывает. Если сделать макрос для 3 кривых и подсунуть ему 2 - будет ошибка

Comments

[DENIS Kokorev]

С 3 квадратами что должно быть на выходе?

[Виталий]

Количество и форма кривых всегда разное.
Макрос должен делать weld для всех выделенных кривых, а потом разъединять получившуюся кривую

Answer 2

[DENIS Kokorev]

Похоже? 100 лет не брал в руки VB.

Sub Macro1()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim s1 As Shape
    Dim count As Integer
    count = OrigSelection.count
    Set s1 = OrigSelection(count)
    For i = count - 1 To 1 Step -1
        Set s1 = s1.Weld(OrigSelection(i), True, True)
    Next i
    OrigSelection.Delete
    Dim brk1 As ShapeRange
    Set brk1 = s1.BreakApartEx
End Sub

Comments

[DENIS Kokorev]

Поправка. Так не оставляет лишнего. Set s1 = s1.Weld(OrigSelection(i), False, True)

Sub Macro1()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim s1 As Shape
    Dim count As Integer
    count = OrigSelection.count
    Set s1 = OrigSelection(count)
    For i = count - 1 To 1 Step -1
        Set s1 = s1.Weld(OrigSelection(i), False, True)
    Next i
    OrigSelection.Delete
    Dim brk1 As ShapeRange
    Set brk1 = s1.BreakApartEx
End Sub

[Виталий]

Да! В точности то что надо. Спасибо огромное