Hello:
I'm using the following to insert a Header and Footer to all pages--
Question: When another machine uses this Workbook--How can I load the .jpg to insert into the header?
Thanks for any help!
I'm using the following to insert a Header and Footer to all pages--
Code:
Sub InsertHeaderFooter()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
With ws.PageSetup
.LeftHeader = ""
.CenterHeader = "SHOW•INTERACT•OBSERVE•GROW" & Chr(10) & "Stategic Job Map"
.RightHeader = ""
.LeftFooter = "Watts and Associates. All Rights Reserved, 1993.Do Not Duplicate Without Permission of Watts and Associates"
.CenterFooter = ""
.RightFooter = ""
End With
Next ws
End Sub
And I'm using this to add a LOGO to the Pages--
Sub Each_Sheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ADDLOGO ws
Next ws
End Sub
Private Sub ADDLOGO(ws As Worksheet)
With ws.PageSetup.LeftHeaderPicture
.Filename = "C:\Users\sean.VFC\Desktop\RW_LOGO_Final_edited-3.jpg"
.Height = 32
.Width = 33
.ColorType = msoPictureAutomatic
.CropBottom = 0
.CropLeft = 0
.CropRight = 0
.CropTop = 0
End With
With ws.PageSetup.RightHeaderPicture
.Filename = "C:\Users\sean.VFC\Desktop\RW_LOGO_Final_edited-3.jpg"
.Height = 32
.Width = 33
.CropRight = -36
.ColorType = msoPictureAutomatic
.CropBottom = 0
.CropLeft = 0
.CropTop = 0
End With
ws.PageSetup.LeftHeader = "&G"
ws.PageSetup.RightHeader = "&G"
End Sub
Question: When another machine uses this Workbook--How can I load the .jpg to insert into the header?
Thanks for any help!
Last edited by a moderator: