Insert a picture into a Word document

[mikeymay]

I am trying to use the following to insert a picture into the header of a Word document

strPath = ActiveWorkbook.Path

'Hold the full path of the picture to be inserted into Word
strClientLogo = Range("FD_ClientLogoPath")

'Word session creation
Set appWord = CreateObject("Word.Application")

appWord.Visible = True

'open the template .doc file
Set docWord = appWord.Documents.Open(strPath & "\Template Client Output.docx")

'Access the header range only need to add to page 2 onwards of the Word doc
Set rngHeader = docWord.Sections(2).Headers(1).Range
    
'Insert the image into the header
Set picWord = rngHeader.Range.InlineShapes.AddPicture(strClientLogo)

The code errors on the last line above with a Run Time error 438 Object doesn't support this property.

I had previously used

rngHeader.InlineShapes.AddPicture strClientLogo

but I need to move, change the size, etc of the image that has been inserted so I need to assign it to an object variable somhow.


TIA

 

[RoryA]

Why did you add the .Range property after rngHeader?

 

[mikeymay]

Why did you add the .Range property after rngHeader?

I used Google Co-Pilot to get this code...clearly their AI isn't 100% accurate

 

[mikeymay]

Why did you add the .Range property after rngHeader?

So I removed the .Range part of the line and this has worked!

 

[RoryA]

clearly their AI isn't 100% accurate

None of them are even close.