Selecting All followed by Command 6 or Command Shift F9 does not work on floating pictures. Either you need to click on them individually and unlink each, or use a macro.
Sub RemPicLinks()
Dim oDoc As Document
Dim oStory As Range
Dim oHlink As Hyperlink
Dim x As Long
For Each oStory In ActiveDocument.StoryRanges
With oStory
For x = .Hyperlinks.Count To 1 Step -1
If .Hyperlinks(x).Type = msoHyperlinkShape Then .Hyperlinks(x).Delete
Next ' x
End With ' oStory
Next
End Sub
_______________ If an answer provides a solution or you find it helpful, please mark it accordingly.
Si mi respuesta te ha servido, márcala como solución o como útil.
8 people found this reply helpful
·
Was this reply helpful?
Sorry this didn't help.
Great! Thanks for your feedback.
How satisfied are you with this reply?
Thanks for your feedback, it helps us improve the site.