AddPicture hat noch einen vierten Paramter Range. Übergibt dem probeweise mal doc.Bookmarks(bkm).Range.
https://docs.microsoft.com/de-de/office/vba/api/word.inlineshapes.addpicture