只選擇在動態範圍

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的一個教程，它顯示了通過搜索靜態ID來查找形狀的方法。你可以在這裏觀看 - >http://community.coreldraw.com/talk/coreldraw_graphics_suite_x6/f/704/t/35486

約翰太神奇了。