Hyperlink TO a picture from a cell

[minaetdave]

Hello, I'm trying to get this working in my excel file...
I get a first sheet 'List' + second one 'overview'.

In sheet 'overview', I get few pictures, each of these ones has been renamed picA, picB, picC,...

I would be able from sheet 'list', by double clicking into the cell were I get the name of the picture (PicA,PicB,..) to get selected the related picture in the sheet 'overview'...to help me to identify quickly where is this picture

Is there any way (I think so) to do this easily with VBA?

Thanks!

 

[FormR]

Hi, welcome to the forum! You could try this which would go in the "Overview" sheets code module.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
On Error Resume Next
Set s = Sheets("Overview").Shapes(Target.Value)
On Error GoTo 0
If Not s Is Nothing Then
    Application.Goto s.TopLeftCell, True
    Cancel = True
End If
End Sub

 

[minaetdave]

Hi, welcome to the forum! You could try this which would go in the "Overview" sheets code module.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
On Error Resume Next
Set s = Sheets("Overview").Shapes(Target.Value)
On Error GoTo 0
If Not s Is Nothing Then
    Application.Goto s.TopLeftCell, True
    Cancel = True
End If
End Sub

Just tried, I have done:

1- Alt + F11
2- Right click on the 'Overview sheet' > Insert > Module
3- Past your code
4 - Save
5 - Go in 'List' sheet and in cell T7, double click on the cell

BUT once double clicked, I edit the value in the cell (=CHIU1000613).
Checked and in the sheet 'overview', the picture I'd like to get selected is named also 'CHIU1000613'

It can be possible to get anything else than double click, no matter for me

 

[FormR]

2- Right click on the 'Overview sheet' > Insert > Module

Sorry, my instructions were not correct. Right click the "List" sheet, choose "View Code" and paste the code there. Not in a standard code module.

 

[minaetdave]

Sorry, my instructions were not correct. Right click the "List" sheet, choose "View Code" and paste the code there. Not in a standard code module.
View attachment 98378

Well like this working..or almost
Isn't it possible to get the picture 'selected' because with this code, once double clicked, I am redirected to the 'overview sheet' and get the picture expected on the top upper corner.

My 'overview' sheet is like a map with several pictures and idea to get it selected in order to locate it quickly...

 

[FormR]

Isn't it possible to get the picture 'selected'

Hi, you could try like this.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
On Error Resume Next
Set s = Sheets("Overview").Shapes(Target.Value)
On Error GoTo 0
If Not s Is Nothing Then
    Application.Goto Sheets("Overview").Range("A1")
    s.Select
    Cancel = True
End If
End Sub

 

[minaetdave]

P

Hi, you could try like this.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
On Error Resume Next
Set s = Sheets("Overview").Shapes(Target.Value)
On Error GoTo 0
If Not s Is Nothing Then
    Application.Goto Sheets("Overview").Range("A1")
    s.Select
    Cancel = True
End If
End Sub

Perfect!!!!!

Exactly what I want

Thank you so much!!!!

 

[minaetdave]

Hi, you could try like this.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
On Error Resume Next
Set s = Sheets("Overview").Shapes(Target.Value)
On Error GoTo 0
If Not s Is Nothing Then
    Application.Goto Sheets("Overview").Range("A1")
    s.Select
    Cancel = True
End If
End Sub

Hello,

I'm back for a small request... Can we adapt the code in order to allow only the double click in column C?
With this code, if double click in column C works perfect but on the other cells, it show me wrong picture

Thanks in advance

 

[FormR]

Can we adapt the code in order to allow only the double click in column C?

Hi, you can try this small modification.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
If Target.Column = 3 Then
    On Error Resume Next
    Set s = Sheets("Overview").Shapes(Target.Value)
    On Error GoTo 0
    If Not s Is Nothing Then
        Application.Goto Sheets("Overview").Range("A1")
        s.Select
        Cancel = True
    End If
End If
End Sub

 

[minaetdave]

Hi, you can try this small modification.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
If Target.Column = 3 Then
    On Error Resume Next
    Set s = Sheets("Overview").Shapes(Target.Value)
    On Error GoTo 0
    If Not s Is Nothing Then
        Application.Goto Sheets("Overview").Range("A1")
        s.Select
        Cancel = True
    End If
End If
End Sub

Perfect!!!!