Automatically resize pasted image - Having trouble with selection

Greetings! I am currently working on a project that requires me to screen capture web pages and then paste the images into a spread sheet, resized to 40% of their original size. Currently I have code in place that allows me to press Control E to resize a selected image. I would like to, instead, have the image automatically paste in at 40%. I don't know how to select the pasted image and resize it using code though, as I'm not sure how to select the image once it's pasted.

Sub resizeImages()

Selection.ShapeRange.ScaleWidth 0.63, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.63, msoFalse, msoScaleFromTopLeft

End Sub

Your help would be greatly appreciated - I would like to get this up and running today

I am currently using Microsoft Excel 2007

Is there anyone who can help me with this?