VB method to Reset picture size

I've set up a VB function which allows the user to select any picture file from their PC/network and insert it into the excel file, using the AddPicture method (intended to be their company logo). However, this method obliges you to specify the inserted picture's width and height, which inevitably means its original aspect ratio is lost.

Is it possibe to either tell the AddPicture method to keep the image at its original size and/or aspect ratio, or can the image be reset (via VB) to it's original size after inserting?

I've tried recording a macro which follows the Format Picture/Size/Reset method, which does reset the picture's original size, but the recording leaves specific values in the VB text string, not something like 'Reset' or 'Original'.

Any ideas?

Hello matt.will,

Perhaps this this macro will help. It uses a Control Toolbox Image control to display bmp, gif, or jpg files on a worksheet. It automatically resizes it self to the picture's size. It prompts the user to select a file using the Open Dialog.

Please Login or Register  to view this content.

Assigning a Shortcut key
1) With the workbook open, press ALT+F8 to display the macros dialog.
2) Select "AddLogo" from the list
3) Click Options and following the instructions.

Sincerely,
Leith Ross