Add a picture in word

[elbartje]

How can I add a picture/logo in a word document with VBA at a certain location (in the header) ?

[gmayor]

Which header?
Which location?

[elbartje]

The header was an example of a location. Like when you have a logo in the header and you want to remove it(I know how to do this) and then place a new logo on the same spot.

[gmayor]

If you know how to do it, then set a range to the location of the image you are removing and then insert an image in the range e.g. the following will replace the first inline image in each header footer with the named image.

Sub ReplaceImage()
Dim oHeader As HeaderFooter
Dim oRng As Range
    For Each oHeader In ActiveDocument.Sections(1).Headers
        If oHeader.Exists Then
            If oHeader.Range.InlineShapes.Count > 0 Then
                Set oRng = oHeader.Range.InlineShapes(1).Range
                oRng.Text = ""
                oRng.InlineShapes.AddPicture _
                        FileName:="C:\Path\filename.jpg", _
                        LinkToFile:=False, _
                        SaveWithDocument:=True
            End If
        End If
    Next oHeader
lbl_Exit:
    Set oHeader = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub

[elbartje]

thank you this is what I needed!