Same Image appear on all sheets from first page single

  • Thread starter Thread starter Duane
  • Start date Start date
D

Duane

Hello all!
I am trying to create a basketball team tracking sheet. What I would like
to be able to do is on the first page (where you will enter your team info:
Names, numbers, etc) place a 'logo' and this image would then be on all other
sheets.

I can do this manually whereby you just delete the existing image and
rght-click/PASTE the new image, but I would like to automate this.

Any ideas?
Thanks again
Duane
 
Gotta do it in code. Hit alt f11, you should see on the left
VBAProject(workbookname) and then the sheets below it, double click on
ThisWorkbook and paste the following code, then hit F5. This will put the
pictures top left corner at cell G7, change it at the 2 places in the code to
move it where you want.

Sub insertPics()

For Each Sheet In Sheets
t = Sheet.Range("G7").Top
l = Sheet.Range("G7").Left
Set p = Sheet.Pictures.Insert( _
"D:\filepath\pic.jpg")
p.Top = t
p.Left = l

Next
End Sub
 
Back
Top