求助，vba插入图片后只能更变第一张图片大小

weionline

我从剪贴板自动插入3张图片，每插入一张后改变大小，然后移动到指定位置。或插入3张图片不移动位置，循环执行后，只能改变第一张的大，看上去焦点有到第二张和第三张上去，不知道怎么去改变焦点，请高手指点。代码如下：

Dim d As Date
For i = 1 To 3
AltPrintScreen '调用图像切割
      


Worksheets(1).Paste Destination:=Worksheets(1).Range("e10") '复制到指定位置
myClr '调用清除

'********************************************
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 500#         
     
Selection.ShapeRange.Width = 200         
Selection.ShapeRange.Rotation = 0#         
DoEvents
Selection.ShapeRange.PictureFormat.CropLeft = 200      
Selection.ShapeRange.PictureFormat.CropBottom = 300   
Selection.ShapeRange.PictureFormat.CropRight = 100   
Selection.ShapeRange.PictureFormat.CropTop = 200   
Selection.ShapeRange.Top = [a1].Top
Selection.ShapeRange.Left = [a1].Left
Next
'Application.CutCopyMode = False '暂停复制

weionline

高手请进呀！