Jediný rozumný způsob vidím ve VBA (makra)

Na list přidat activeX prvek obrázek a do kodu stranky přidat například:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Text = "" Then Exit Sub 'když bude buňka prázdná nic se nestane
Image1.Picture = LoadPicture(Target.Text) (načte obrázek podle cesty v buňce)
End Sub