Monday, March 31, 2008

Adding Images to Header using VBA (Word VBA)

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

3 comments:

  1. Anonymous2:12 PM

    If you are interested in finding out code for inserting a plain ordinary image into word from excel you can use the code below.

    http://vbaexcel.eu/vba-macro-code/insert-image-to-word-resize-image-insert-borders-using-vba-excel

    ReplyDelete
  2. Anonymous2:05 AM

    Thank you man, your code was efficient

    ReplyDelete
  3. Anonymous11:23 PM

    This 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

StumbleUpon
Share on Facebook
Related Posts Plugin for WordPress, Blogger...
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.