Use Pictures/Images in Word Document Header using Word VBA
Most often we will be using company's logo in Header. Here is the way to do it using VBA
Sub Add_File_Header()
Set docActive = Word.ActiveDocument
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes.AddPicture "C:\My Documents\My Pictures\MYPicture.bmp"
docActive.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Header text" ' ERROR
objWord.ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
With docActive.PageSetup
.DifferentFirstPageHeaderFooter = False 'Set this to false will put text on first page, else will not.
End With
End Sub
Monday, March 31, 2008
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.
If you are interested in finding out code for inserting a plain ordinary image into word from excel you can use the code below.
ReplyDeletehttp://vbaexcel.eu/vba-macro-code/insert-image-to-word-resize-image-insert-borders-using-vba-excel
Thank you man, your code was efficient
ReplyDeleteThis code is good but works only for the first section of the document. If you change section number in the code, the picture still goes to the first section.
ReplyDelete