Hi,
I have and Excel doc for which I need to hyperlink 1000+ photos for viewing.
I need to automate this hyperlinking.
For instance:
The Photos are on C:\\Photos\
and the Excel files is C:\\testfile.xls
The final product is the Photos and Excel file will reside on a compact disc as Folder(photos) and Excel File.
The photos will pop up in default viewer from hyperlink.
I have searched but can not find the answer
Thank you for your assistance,
Andre
Last edited by pdk123; 07-15-2011 at 11:15 AM.
Try this macro
Sub Test() SubFolder = "photos\" SourceFolder = ThisWorkbook.Path & "\" & SubFolder Filename = Dir(SourceFolder & "*.*") Do While Filename <> "" Counter = Counter + 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(Counter, 1), Address:=SubFolder & Filename, TextToDisplay:=SubFolder & Filename Filename = Dir() Loop End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks