Hi Tiberius,
Try something based on:
Sub UpdateBookmarkedImage(BmkNm As String, NewTxt As String)
Dim BmkRng As Range
With ActiveDocument
If .Bookmarks.Exists(BmkNm) Then
Set BmkRng = .Bookmarks(BmkNm).Range
BmkRng.InlineShapes(1).Delete
BmkRng.InlineShapes.AddPicture FileName:=NewTxt
.Bookmarks.Add BmkNm, BmkRng
End If
End With
Set BmkRng = Nothing
End Sub
which you can call with code like:
Sub UpdateImage()
Dim BmkNm, NewTxt As String
BmkNm = "MyBookmarkName"
NewTxt = "C:\Users\Tiberius\Pictures\MyPic.jpg"
UpdateBookmarkedImage BmkNm, NewTxt
End Sub