Sub InsertImageWord()
Dim AdrIm As String, WordApp As Object
AdrIm = Sheets("ENTREE").Range("G1").Value & "\" & ListPhotos.Value
Set WordApp = GetObject(, "Word.Application")
WordApp.Selection.InlineShapes.AddPicture Filename:=AdrIm, LinkToFile:=False _
, SaveWithDocument:=True
End Sub