Lav et ark med 2 faner med navnene: "billeder" og "liste_xxyy".
I "liste_xxyy" indsætter du:
Kolonne A:
Billede - Angiver beskrivelse af billederne
Billede 1
Billede 2
Billede 3
Billede 4
Billede 5
Kolonne B:
Ord - Angiver hvilke(t) ord der skal bruges ved klik på det respektive billede
test
nisse
jul
Iver
exp.dk
Kolonne C:
Destination - Angive hvor et ord placeres ved klik på et billede
A1
A2
A3
A4
A5
Kolonne F:
Navn på ark med billeder og tekst
billeder
-----------------------------------------------------
Gå i vba'en og indsæt følgende i et modul:
Dim ws As Worksheet
Dim ws_name As String
Dim ls As Worksheet
Dim ord As String
Dim pos As String
Sub billede1()
Set ls = ThisWorkbook.Worksheets("liste_xxyy")
ws_name = ls.Range("F2").Value
Set ws = ThisWorkbook.Worksheets(ws_name)
ord = ls.Range("B2")
pos = ls.Range("C2")
ws.Range(pos) = ord
End Sub
Sub billede2()
Set ls = ThisWorkbook.Worksheets("liste_xxyy")
ws_name = ls.Range("F2").Value
Set ws = ThisWorkbook.Worksheets(ws_name)
ord = ls.Range("B3")
pos = ls.Range("C3")
ws.Range(pos) = ord
End Sub
Sub billede3()
Set ls = ThisWorkbook.Worksheets("liste_xxyy")
ws_name = ls.Range("F2").Value
Set ws = ThisWorkbook.Worksheets(ws_name)
ord = ls.Range("B4")
pos = ls.Range("C4")
ws.Range(pos) = ord
End Sub
Sub billede4()
Set ls = ThisWorkbook.Worksheets("liste_xxyy")
ws_name = ls.Range("F2").Value
Set ws = ThisWorkbook.Worksheets(ws_name)
ord = ls.Range("B5")
pos = ls.Range("C5")
ws.Range(pos) = ord
End Sub
Sub billede5()
Set ls = ThisWorkbook.Worksheets("liste_xxyy")
ws_name = ls.Range("F2").Value
Set ws = ThisWorkbook.Worksheets(ws_name)
ord = ls.Range("B6")
pos = ls.Range("C6")
ws.Range(pos) = ord
End Sub
---------------------------------------
I fanen "billeder" indsætter du 5 billeder.
Højreklik på et af dem og vælg "Tildel makro".
Vælg en af de 5 makroer.
Klik på billedet.
Done.
