Paste Image from website then resizing, cropping, etc.

[cerana]

Morning,

Wondering if anyone can help me with this. I am trying to copy an image from a website, then pasting it onto excel, resizing it, and crop it (have to do it for 4 seperate images). Right now I have the script below. I've been researching and I know I have to use .picture.counter to define the name properly but I don't understand how to... If anyone can help, it would be greatly appreciated!

Sub Test()
'
' Test Macro
'

'
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("C4").Select
ActiveSheet.Paste
ActiveSheet.Shapes.Range(Array("Picture 28")).Select
Selection.ShapeRange.ScaleHeight 0.35, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.ScaleHeight 0.88, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 248
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 262
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 0
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 15
End Sub