Hyperlink text to image

hey Everyone

i have a question for the board

i have a file with 1500 row, they are personal information. in the file there are 3 columns, picture, passport, Visa

i have a formula that automatically populate the name of the Picture, Passport and visa, and the relevant document are named the same.
Question:

is there a way to bulk hyperlink the file name so that when i click on the name of a Visa, the correspondent picture would come out?

Originally Posted by davesexcel

Hello,
Where is the picture to "Come Out" to?

Sorry, don't understand the question

Originally Posted by davesexcel

The last line of your question

I just need the picture to be displayed, outside excel

Originally Posted by davesexcel

Using the worksheet_selection_change event should do what you need.

Make a folder with the files names, they need to match the names in column P
-
-
Attachment 581136
-
right click on the sheet tab and select "View Code"

-
Attachment 581137
-
This is where you edit the folder address in the code.
-
Attachment 581138
-
Click the Cells in column P and the photos will show in Range("S1:X13")
-
Attachment 581139Attachment 581140
-

Please Login or Register  to view this content.

I can't seem to add the attachment to this post, I will try in a different post

thank you I will give it a go and let you know.

thank you very much for this

Originally Posted by didierkassas

dear Dave, thank you for the file

i was able to make it work

Dear Dave,

i am sorry to bother you again but the person i am doing the excel for is wandering if it's possible to have the image display outside of Excel.

so basically, once you click on the cell the image viewer would open displaying the image.

Thank you
Didier

dear Humdi,

do i add this in addition to the existing VBA Code? or just replace the entire thing?

This is the code that i am using at the moment,

the path is located in A1

where would you add the code line?




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet
Dim PcRng As Range
Dim rng As Range
Dim Filepath As String
Filepath = ActiveSheet.Range("A1").Value
Shell ("RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & Filepath)

Set sh = Sheets("Accreditation")


If Target.Column <> 14 Then Exit Sub
If Target.Row < 4 Then Exit Sub


With sh
.Pictures.Delete
Set PcRng = .Range("S1:X13")
Set myRng = PcRng.Areas(1)
Set myPict = myRng.Parent.Pictures.Insert("filapath" & Target.Value & ".jpg")
myPict.Left = myRng.Left
myPict.Top = myRng.Top
myPict.Height = myRng.Height
myPict.Width = myRng.Width
myPict.Placement = xlMoveAndSize
End With

End Sub

Dear Humding

we are nearly there

i actually needed to have the file path as i want to refer to a specific cell as the location of the images may change
so i changed the code as per the below



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet
Dim PcRng As Range
Dim rng As Range
Dim strFile As String

Set sh = Sheets("Accreditation")

If Target.Column < 14 Then Exit Sub
If Target.Row < 4 Then Exit Sub

'Assume this is fixed
FilePath = ActiveSheet.Range("u1").Value


'load external viewer
Shell ("RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & FilePath)

End Sub



it works in the sence that if i change the path then the image still shows, the problem now is that it always shows the same image instead of changing . i have attached the Excel

Originally Posted by humdingaling

add target.value to the line

Please Login or Register  to view this content.

ps you should probably target column as well

Please Login or Register  to view this content.

just so it doesn't run when you select column R on wards

Dear Humdingaling

tried the lines of code that you suggested but nothing happens,

any ideas why this would be?

YAY!!! it works exactly as i wanted,

thank you so much