Add a bookmark for an embedded picture

[BambooBart]

Hi there,

When I select a picture in Word I am as a user able to add a bookmark to that picture. I have been looking for a way to do this using vba. The only examples I find start from a .bmp or picture file. I don't have the picture file, I just want to automate in vba what I can do as a user.
Any suggestions? I tried active document. bookmarks.add name:="test", range:=selection.range where the picture was selected but that gave an error

 

[BambooBart]

I just realized that my question is about word and not excel. The reason that is posted it on this forum is that it is part of my effort to copy and paste an excel chart in a word document. I got that working but without loosing the bookmark I can't get rid of the text in the bookmark that remains there after I paste the picture from excel.
I can set the text in the bookmark to a single space but I want the user to have a meaning full and visible feedback about the bookmark

 

[NdNoviceHlp]

Replace charts in a Word document at bookmarked locations

Hi there, I have an Excel spreadsheet and a Word document that work in pair. The spreadsheet is reviewed and updated regularly so the charts there represent the most up-to-date information. On the other hand, the Word document which contains the same charts (previously pasted as pictures)...

www.mrexcel.com

Seems like some relevant code at the above link. HTH. Dave

 

[BambooBart]

Replace charts in a Word document at bookmarked locations

Hi there, I have an Excel spreadsheet and a Word document that work in pair. The spreadsheet is reviewed and updated regularly so the charts there represent the most up-to-date information. On the other hand, the Word document which contains the same charts (previously pasted as pictures)...

www.mrexcel.com

Seems like some relevant code at the above link. HTH. Dave

Thanks Dave,

Using .paste as shown in the code allowed me to set the bookmark again. However pasting a chart doesn't react well to resizing. When using .pastespecial the bookmark could not be set in that way. However, the code inspired me to try something else and that worked by using the inlineshapes().range

If .Bookmarks.Exists("chart_WV") Then

Set oRng = .Bookmarks("chart_WV").Range
Sheets("Sheet1").ChartObjects("chart_WV").Chart.ChartArea.Copy
oRng.PasteSpecial Link:=False, DataType:=9, Placement:=0, DisplayAsIcon:=False ' Werkt maar de bookmark is weg
NoShapes = NoShapes + 1
Set oRng = .inlineshapes(NoShapes).Range
oRng.Bookmarks.Add Name:="chart_WV", Range:=oRng
.inlineshapes(NoShapes).Height = 115.2 * 0.8
.inlineshapes(NoShapes).Width = 220.3 * 0.8


End If

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Dave