Auswahl nur bestimmte Formen in einem Dynamikbereich

Question

Im Code hier zu sehen:

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 stammt aus einem Import. Der Code tut, was ich tun soll, nämlich jede neue Form, die dupliziert wird, basierend auf der Position der Form, die direkt davor kam. Das Problem, das die meisten von euch sehen können, ist, dass sie auch jedes Shape auf der Seite mit jedem neuen Import oder Duplikat neu positioniert. Ich brauche eine Möglichkeit, das neu importierte Shape einfach neu positionieren zu lassen. Gibt es eine Möglichkeit, den Code abzuwählen, außer dem neuen und dem, der direkt davor eingefügt wurde?

Answer 1

Ich fand ein Tutorial von GDG, das die Methode zum Suchen von Shapes durch Suchen nach der statischen ID zeigt. Sie können es hier sehen ->http://community.coreldraw.com/talk/coreldraw_graphics_suite_x6/f/704/t/35486

John ist erstaunlich.