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.
Sub AddLogo()
Dim Img As MSForms.Image
Dim PicFile As String
PicFile = Application.GetOpenFilename("Pictures (*.bmp;*.gif;*.jpg), *.bmp;*.gif;*.jpg,All Files (*.*), *.*")
If PicFile = "" Then Exit Sub
Set Img = ActiveSheet.OLEObjects("Image1").Object
With Img
.AutoSize = True
.Picture = LoadPicture(PicFile)
End With
End Sub
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
Bookmarks