把右边彩色图同左边相同尺寸的移到左边重叠一起

Dim ShapeItem, ShapeItem1 As Shape
Dim s, s1 As Shapes
ActiveDocument.Unit = cdrMillimeter
Set s = ActiveSelection.Shapes.Item(2).Shapes
Set s1 = ActiveSelection.Shapes.Item(1).Shapes
For Each ShapeItem In s
For Each ShapeItem1 In s1
If ShapeItem.SizeWidth = ShapeItem1.SizeWidth And ShapeItem.SizeHeight = ShapeItem1.SizeHeight Then
ShapeItem1.Move ShapeItem.PositionX - ShapeItem1.PositionX, ShapeItem.PositionY - ShapeItem1.PositionY
ShapeItem1.Cut
ActiveLayer.Paste
Exit For
End If
Next ShapeItem1
Next ShapeItem
哪位高手帮看看，s1里对像怎么样去掉，现在用cut，paste，图形多了就不行了，能不能直接在s1里去掉已比较过的shapeitem1，这样s里的对象再比较就不会有重复的图形了

因为你不能私信，所以我想说看看关于你那个事能不能给你点帮助，
你那个没有重疾豁免，应该也没什么办法了，当初那个代理人有没有和你讲清楚这些责任呢？ 如果没有讲清楚，是可以投诉试试的。
还有你老婆那个保费也太高了吧，一年16000多，保障并不是很高，毕竟现在那个保费对你家应该说是个压力，你可以多了解下保险，然后再看看那个保障对你们来说足够不足够。