Macro Automatically Paste Copied Image And Resize

[Lewzerrrr]

Hi,

What I’m trying to achieve is if I was to google image a picture and the copy it, I want my macro with CTRL E to paste it into selected cell and then resize it to 3.77 cm height and 2.37 cm width.

Thanks

 

[Lewzerrrr]

Got it from somewhere

Sub PastePic()

Set N = ActiveSheet.Pictures.Paste

With ActiveCell
T = .Top
L = .Left
End With

With N
.Top = T
.Left = L
.Width = 92.6929242
.Height = 100.629933
End With

End Sub