Moving Inserted Picture After It Has Been Cropped

My code is:

Code:
Sub Insertwinds1()
ppath = "winds.webimage.url"
With ActiveSheet.pictures.insert(ppath)
.left = Range("A2").left
.top = Range("A2").top
.ShapeRange.PictureFormat.CropRight = 70
.ShapeRange.PictureFormat.Cropleft = 130
.ShapeRange.PictureFormat.CropTop = 300
.ShapeRange.PictureFormat.CropBottom = 90
End With
End Sub

This takes the image from the web (which is fairly large), moves it to Cell A2, and then Crops out the extra space I don't need showing. When this Macro is finished, due to the large Crop size, the image is in the center of the screen and nowwhere near the A2 cell. Is there a simple addition I can add to this code to move it back to a specific cell (a2) after it's been cropped? or move it via placement on the sheet (13, 13, 600, 600)? My old code I was using for this was:

Code:
Dim MYPICTURE As Shape
Set MYPICTURE = Activesheet.shapes.addshape(msoshaperectange, 13, 13, 600, 600)
MyPICTURE.fill.userpicture "winds.webimage.url"
End Sub

This one inserted the image, placed it in the specific spot... but I can't get that one to crop it, which is why I started over with teh first code.