Insert picture and resize to range of cells

I am trying to create a button that lets you select a picture then insert and resize the picture into a given selection of cells using some code borrowed from here http://www.exceltip.com/st/Insert_pi...Excel/486.html but I can not seem to get it to work.

Here is the code I am using.

Please Login or Register  to view this content.

And I keep getting an error as soon as it hits t=.Top.

I get this error: Run-time error '424' : Object required

Can someone please help me with this?

Also, how can I add this to a module and call it in CommanButton1_Click()? I am pretty new to VBA

Thanks,

Eric

Thank you very much! Worked like a charm!

Originally Posted by royUK

You have incorrectly used Set, but also your variaables are not declared. Try this

Please Login or Register  to view this content.

What formula could I add to this that would make the inserted picture fill a cell? I have merged columns A-F and rows 10-30 into one big cell and would like the picture to fill this area.

Originally Posted by hayhursm

What formula could I add to this that would make the inserted picture fill a cell? I have merged columns A-F and rows 10-30 into one big cell and would like the picture to fill this area.

Just change the range in this code

Please Login or Register  to view this content.

to Range("A10:F30")

How can I alter this code so that an image will fill up the entire range? I would like aspect ratio's off, and the image to be able to fill any dimension I tell it. I know that this will make the image distorted and that is okay.

Please Login or Register  to view this content.