Moving an inserted picture after it has been cropped

[rpolasky]

Hello Excel gurus!

My code is:

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:

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.

Please Help Me Excel-Wan Kenobi - You're my only hope!

RPolasky

 

[shg]

Crop first and then set left and top?

 

[rpolasky]

If this works, I will be happy and say thank you... and then cry because it was so simple.... checking....

 

[rpolasky]

That was it! /cry

It cropped it, THEN placed it in the Cell.

Side note: you don't happen to have the additional code to expand the size of it?

 

[rpolasky]

I got it... just had to add in the:

.width =
.height =

thanks for your inital help!

 

[shg]

You're welcome.