Function ChangeLogo(oDoc As Document) As Boolean
Dim oSection As Section
Dim oHeader As HeaderFooter
Dim oShape As Shape
Const strImage As String = "C:\lh.png"
On Error GoTo Err_Handler
Set oSection = oDoc.Sections.First
' set first section header type - may conflict with other format desires...
oSection.PageSetup.DifferentFirstPageHeaderFooter = True
' seek first section again, otherwise logo is on wrong pages
Set oSection = oDoc.Sections.First
For Each oHeader In oSection.Headers
  If oHeader.IsHeader Then ' put logo on first header we find
    Set oShape = oHeader.Shapes.AddPicture(FileName:=strImage)
    With oShape
      .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
      .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
      .Left = CentimetersToPoints(-1)
      .Top = CentimetersToPoints(-0.07)
     End With
     ChangeLogo = True
     Exit For  ' done, exit
  End If
Next oHeader
lbl_Exit:
  Set oSection = Nothing
  Set oHeader = Nothing
  Set oShape = Nothing
  Exit Function
Err_Handler:
  ChangeLogo = False
  Resume lbl_Exit
End Function