Inserting Hyperlinks to each image in a directory

Hi,

I would like to add hyperlinks to my digital collection which will
always be stored in \Digital Camera\.

The subsequent directories may change. So the problem now is how do I
do it programmatically to sequentially search through all the
directories and each each image under the directory as a hyperlink in a
worksheet? A sample of the code for manual addition is shown below.

Any help is appreciated. Thanks!

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"D:\1 Data\Personal\Digital
Camera\Australia\100_1027\IMGP0471.JPG", _
TextToDisplay:= _
"D:\1 Data\Personal\Digital
Camera\Australia\100_1027\IMGP0471.JPG"
Range("A2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"D:\1 Data\Personal\Digital
Camera\Australia\101_1028\IMGP0475.JPG", _
TextToDisplay:= _
"D:\1 Data\Personal\Digital
Camera\Australia\101_1028\IMGP0475.JPG"

I like to use the =hyperlink() formula when I have lots of them.

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim myPath As String
Dim oRow As Long
Dim iCtr As Long

Set wks = Worksheets.Add
wks.Range("a1").Value = "Filename"

myPath = "C:\my documents\my pictures"

With Application.FileSearch
.NewSearch
.LookIn = myPath
.Filename = ".jpg"
If .Execute() > 0 Then
oRow = 1
For iCtr = 1 To .FoundFiles.Count
oRow = oRow + 1
wks.Cells(oRow, "A").Formula _
= "=hyperlink(""" & .FoundFiles(iCtr) & """)"
Next iCtr
End If
End With

wks.UsedRange.Columns.AutoFit

End Sub

If you don't like this, maybe you can adapt it to the Insert|hyperlink style.


YehWei@gmail.com wrote:
>
> Hi,
>
> I would like to add hyperlinks to my digital collection which will
> always be stored in \Digital Camera\.
>
> The subsequent directories may change. So the problem now is how do I
> do it programmatically to sequentially search through all the
> directories and each each image under the directory as a hyperlink in a
> worksheet? A sample of the code for manual addition is shown below.
>
> Any help is appreciated. Thanks!
>
> ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
> "D:\1 Data\Personal\Digital
> Camera\Australia\100_1027\IMGP0471.JPG", _
> TextToDisplay:= _
> "D:\1 Data\Personal\Digital
> Camera\Australia\100_1027\IMGP0471.JPG"
> Range("A2").Select
> ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
> "D:\1 Data\Personal\Digital
> Camera\Australia\101_1028\IMGP0475.JPG", _
> TextToDisplay:= _
> "D:\1 Data\Personal\Digital
> Camera\Australia\101_1028\IMGP0475.JPG"

--

Dave Peterson