add logo

[shadow12345]

I would like a macro to add the file called logo.jpg on every sheet in a work book named outstanding payments... I would like it to appear in cell d 1 (its already sized to fit the sheet based on that

(the logo file is stored on c:\logo.jpg)

Anyone know if thats even possible?

 

[MickG]

Mr Excel -Shadow12345 _8/2/08
----------------------
Hi, Shadow12345
This worked for me using pictures from "My Pictures"
I should try this code in a new Workbook to start with, because every time you run the code it inserts a new lot of pictures.
This could save a lot of work deleting them if its not what you want
If it proves OK Paste the code into an Mt Macro or CommandButton on Sheet (1) of the Workbook "Outstanding payments"
When you have pasted the code , you will see two lines in green, If you remove the Inverted Commas from the front of these lines you can use them as part of the code, to adjust the size of your picture,if you need to.

Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In ActiveWorkbook.Worksheets
wks.Select
wks.Pictures.Insert("C:\logo.jpg").Select
With Selection
    .Top = wks.Range("D1").Top
    .Left = wks.Range("D1").Left
    '.Height = 100
    '.Width = 200
End With
Next wks
Application.ScreenUpdating = True

Regards Mick