Insert header logo in word doc from excel

**scifo** · 02-16-2010, 05:44 AM

Hi

I'm looking for a way to insert a picture in the header of a word document, created by the following code:

Code:

                Range("A1:G16").Select
                Selection.Copy
                
                Dim a As Object
                Set a = Nothing
                  Set a = CreateObject("Word.Application")
                  a.Documents.Add
                  a.Selection.Paste
                  
                Application.CutCopyMode = False
                a.Visible = True

Does anyone have an idea on how to do this?

Thanks in advance.

//Scifo

**JeanRage** · 02-16-2010, 07:30 AM

Hi,

You need to select the Header and then insert your picture ...

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.InlineShapes.AddPicture ....

HTH

**scifo** · 02-16-2010, 09:03 AM

I'm sorry, I'm new to VBA, but when I try this code, the image is
placed under the first pasted selection.

Code:

                Range("A1:G16").Select
                Selection.Copy
                
                Dim a As Object
                Set a = Nothing
                  Set a = CreateObject("Word.Application")
                  a.Documents.Add
                  a.Selection.Paste
                  
                  ' K3:L8 contains the picture
                  Range("K3:L8").Select
                  Selection.Copy
                
                  a.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
                  a.Selection.Paste
                  a.Visible = True