Afbeeldingen verkleind invoeren in Excel en hyperlinken

[annetiti]

Dag
Een vraagje ivm invoegen van hyperlinken.

Bedoeling van de macro is om per rij
- eerste cel een verkleinde afbeelding in te voegen die gelinkt is aan de cel maw een rij invoegen de afbeelding verplaatst zich mee (dit is gelukt met vba)
- klik ik op de afbeelding dan zou deze vergroot weergegeven worden. Voeg ik manueel de koppeling - hyperlink in dan lukt dit. Niet via VBa
- eveneens zou in een cel een hyperlink naar het Word geplaatst worden vb naam afbeelding/docx.


Weet iemand hoe ik dit kan oplossen? In bijlage een voorbeeld.

Hartelijk dank

Annetiti

 

[snb]

Koppel iedere afbeelding aan deze macro:

Sub M_snb()
  With Blad1.Shapes(Application.Caller)
    .LockAspectRatio = True
    .Height = IIf(.Height = .TopLeftCell.RowHeight, 6, 1) * .TopLeftCell.RowHeight
  End With
End Sub

 

[annetiti]

afbeeldingen verkleinen en hyperlink toevoegen

Dag snb

Via de help op zoek geweest naar (Application.Caller) maar het is voor mij niet duidelijk.
Bij het uitvoeren van je macro krijg ik een foutmelding: item met opgegeven naam niet gevonden.


Is het mogelijk om wat meer uitleg te geven?

alvast bedankt
Annetiti

 

[snb]

Klik op de foto en zie wat er gebeurt.