Hello,



I was wondering whether I can create the following macro:

I have a number of images in a Word 2010 document. I'd like to assign each image a hyperlink that would open the respective image in its folder location (on following the hyperlink). So perhaps the macro would need to recognise each image's name/location to determine what hyperlink to use.

To clarify, the point is that it'd easier to find the original full-size image in a folder containing a lot of images fast, and without having to rely on the image caption being the same as the image name in the folder location.

Please let me know if this is unclear.
Thanks!

Hi there,

I hope I have understood your question? Does the following code do what you want?

Option Explicit

Public Sub HyperlinkedPicture()

Dim oInlineShape As Word.InlineShape
Dim sFileFullName As String
Dim oFileBrowse As FileDialog

Set oFileBrowse = Application.FileDialog(msoFileDialogFilePicker)

With oFileBrowse
.Title = "Insert Picture"
.AllowMultiSelect = False
.ButtonName = "Insert and Hyperlink"
.Filters.Clear
.Filters.Add "Pictures", "*.jpg, *.jpeg, *.wmf, *.emf, *.gif"
If .Show Then

sFileFullName = .SelectedItems(1)

Set oInlineShape = Selection.InlineShapes.AddPicture _
(FileName:=sFileFullName, LinkToFile:=True, SaveWithDocument:=False)

ActiveDocument.Hyperlinks.Add Anchor:=oInlineShape.Range, _
Address:=sFileFullName

End If

End With

Set oInlineShape = Nothing
Set oFileBrowse = Nothing

End Sub