hot to assign an image to another tab's cell with 'double click'

Terry89

New Member
Joined
Jun 8, 2015
Messages
1
Dear All,

I have an image database in excel (2010). I want to assign every image with a specific cell of another tab of the same excel file. I want to do this with 'double left click'. Could you please help me?

I did it in the first place by placing a hyperlink to every image but because it only supports a 'single left click' you can accidentally go to another tab and it is frustrating.

Thanks!
 

Some videos you may like

Excel Facts

What do {} around a formula in the formula bar mean?
{Formula} means the formula was entered using Ctrl+Shift+Enter signifying an old-style array formula.

Worf

Well-known Member
Joined
Oct 30, 2011
Messages
4,096
Hello and welcome to the Board

- Double clicking an image will not fire an event, but here is a workaround:
- Paste the two macros where indicated
- Create a table similar to the one shown below; if you can’t use that particular range, the formulas will need adjusting
- Run the table macro, which will populate some fields
- Fill manually the destination field
- Click a cell near an image and you will be taken to the corresponding sheet. The picture’s top left cell is used as position reference.

Invoice (3)


*ABCDEFG
2Image #Image NameImage ColDestinationLast used rowTarget ColCol chosen
31hli213Plan1!F951013
42Picture 36Dest!k4***
53hli117Instructions!P7***

<colgroup><col style="font-weight:bold; width:30px; "><col style="width:64px;"><col style="width:92px;"><col style="width:74px;"><col style="width:108px;"><col style="width:101px;"><col style="width:69px;"><col style="width:76px;"></colgroup><tbody>
</tbody>

Spreadsheet Formulas
CellFormula
E3=MATCH(LOOKUP(2,1/(A:A<>""),A:A),A:A)
G3{=INDEX(C3:C5,MATCH(SMALL(ABS(F3-C3:C5),1),ABS(F3-C3:C5),0))}

<tbody>
</tbody>
Formula Array:
Produce enclosing
{ } by entering
formula with CTRL+SHIFT+ENTER!

<tbody>
</tbody>


Excel tables to the web >> Excel Jeanie HTML 4

Code:
' standard module
Sub GenerateTable()
Dim r%, i%
Range("a3:c100").ClearContents
For i = 1 To ActiveSheet.Pictures.Count
    Cells(i + 2, 1) = i
    Cells(i + 2, 2) = ActiveSheet.Pictures(i).Name
    Cells(i + 2, 3) = ActiveSheet.Pictures(i).TopLeftCell.Column
Next
r = ActiveSheet.Range("e3")
ActiveSheet.Range("g3").FormulaArray = "=index(c3:c" & r & ",match(small(abs(f3-c3:c" _
& r & "),1),abs(f3-c3:c" & r & "),0))"
End Sub

Code:
' sheet module
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sr
Me.Range("f3") = Target.Column
sr = Split(Me.Range("d" & Evaluate("=match(g3,c:c,0)")), "!")
Sheets(sr(0)).Activate
Sheets(sr(0)).Range(sr(1)).Activate
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,123,323
Messages
5,600,954
Members
414,417
Latest member
Nobu

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top