Hi Sharon
I found this piece of code on the web and have tested it and it seems to work okay for me.
You will need to change the filename/path to match your own picture.
Credit for this code goes to someone called Shasur on p2pwrox.com.
Good luck.
Tony
Sub Word_Insert_Image_in_Header()
Dim oWD As Word.Document
Set oWD = ActiveDocument
With oWD.Sections(1)
.Footers(wdHeaderFooterPrimary).Range.InlineShapes .AddPicture FileName:="C:\Users\Public\Pictures\Sample Pictures\Jellyfish.jpg", _
LinkToFile:=False, SaveWithDocument:=True
End With
End Sub
|