View Single Post
 
Old 01-28-2013, 05:34 AM
OTPM OTPM is offline Windows 7 32bit Office 2010 32bit
Expert
 
Join Date: Apr 2011
Location: West Midlands
Posts: 981
OTPM is on a distinguished road
Default

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
Reply With Quote