Выбор только определенные фигуры в динамическом диапазоне

Question

В коде видно здесь:

Dim i As Long 
Dim s, s2 As Shape 
Dim sr As ShapeRange 
Dim DupCounter As Integer 

DupCounter = 1 

Do Until DupCounter > QUANTITY 
sHape1.Duplicate 

ActivePage.Shapes.All.CreateSelection 

Set sr = ActiveSelectionRange 

For i = 1 To sr.COUNT 

    Set s = sr(i) 

    If i = 1 Then 
    s.SetPosition 0, 0 

    ElseIf i <> 1 Then 
    s.SetPosition s2.PositionX, (s2.PositionY + (s2.SizeHeight/2) + 0.35 + (s.SizeHeight/2)) 

    End If 

    Set s2 = s 
    Next i 

    DupCounter = DupCounter + 1 

    Loop 

Shape1 происходит от импорта. Код делает то, что я хочу, чтобы он выполнял позицию каждой новой фигуры, которая дублируется в зависимости от положения фигуры, которая появилась прямо перед ней. Проблема, которую большинство из вас может видеть, заключается в том, что она также переставляет каждую фигуру на странице с каждым новым импортом или дублированием. Мне нужен способ просто изменить макрос вновь импортированной формы. Есть ли способ, чтобы код отменил выбор всех фигур, кроме нового, и того, что было введено прямо перед ним?

Answer 1

Я нашел учебник GDG, в котором показан метод поиска фигур путем поиска статического идентификатора. Вы можете посмотреть его здесь ->http://community.coreldraw.com/talk/coreldraw_graphics_suite_x6/f/704/t/35486

John потрясающий.