Centering image (horizontally) in Range

Hello,

Excuse me if I'm asking a simple question, but I'm a bit of a noob when it comes to VBA. As a matter of fact I live on Copy and Paste and sometimes I actually understand what I've copied and I'm able to adjust it to my needs. In this manner I have made an excel file that imports pictures from my harddisk into a named Range. I have tried many other sites for an answer. I have however not been able to center the images horizontally (width of different images varies) in that Range.

I would be very gratefull if someone could help me with this.

Below is the code I have copied and adjusted:

Please Login or Register  to view this content.

Thanks in advance...

Originally Posted by shg

Why do you have three InsertPicFromFile subs?

Because I have three different pictures in three different places in the document. In the end it will be over 20 because it's going to be a fitness training program.

Originally Posted by shg

Do you want the picture fitted to the height of the destination range and centered horizontally?

Yes!

Originally Posted by shg

Whay are you doing this?

Please Login or Register  to view this content.

This part I copied from another excel document, but I don't know how to adjust it to center the picture...

Thanks shg for your effort, but including this code introduces a whole bunch of error codes that I'm not able to eliminate....