Word Header Image - Layout Options

[mikeymay]

I have got an image in a Word Document header and I need to change the Layout Options to make it line up with an existing image in the header (on the left of the header) and some text (on the right of the header)

I can do this in Word using the following

The option that is highlighted is changed to the last option in the With Text Wrapping options.

I can't find a way of doing this in Excel VBA though

The following code inserts the picture into the header and changes the size but is is inserted in a position that needs changing which after make the Layout Option change, I can manually drag to the right position in the header.


TIA

 

[Trevor G]

You haven't shared your code. Have you tried recording a macro in Word to make the alterations you want which you could then look to use in Excel.

 

[mikeymay]

I managed to resolve this in the end

Set rngHeader = docWord.Sections(2).Headers(1).Range

'Insert the image into the header
Set picWord = rngHeader.InlineShapes.AddPicture(strClientLogo)

'Resize the image
With picWord
   .LockAspectRatio = msoTrue
   
   .Height = 34 ' Set the height in points
   
   .ConvertToShape
   
   .Range.ShapeRange.Left = 109.6
   .Range.ShapeRange.Top = -17.55
End With

By converting the image to a shape, this allowed me to make the neccessary .left and .top changes