@AntiqueWhale, my exposure to this is limited; is this what you mean?

Sub AddImageToHeader()

Dim SrcePath As String

SrcePath = "S:\DocBase\Document Templates\Macros\New Macros Nov 2018\Letterhead.jpg"

ThisDocument.Sections.Item(1).Headers(wdHeaderFoot erPrimary) _
.Range.InlineShapes.AddPicture (SrcePath)

Dim header_pic As InlineShape
Set headerPic = ThisDocument.Sections(1).Header(wdHeaderFooterPrim ary).Range.InlineShapes.AddPicture(SrcePath)
With headerPic
.Width = 5.11
.Height = 20.96
End With

End Sub

I getting an error on this?