Foto plakken ook onder verwijzing

[schuurar]

Ik heb hier van het forum een hele mooie code gehaald om foto's te plakken in een cel.
Deze code kijken naar het woord wat je schrijft en zoekt dan in de aangegeven map het bestand op met de naam van het bestand.
bv ik tik saucijzenbroodje en dan krijg ik de foto van het saucijzenbroodje. Dit werkt prima !

Alleen nu de vraag.
Ik wil het graag ergens in toepassen waarbij ik de cellen niet hoef in te vullen maar die naar een cel verwijzen (bv =D12)
Als ik dit nu doe krijg ik uiteraard wel het woord saucijzenbroodje maar de code ziet het woord =D12 en er is geen foto die zo heet.

Hoe kan ik de code zo veranderen dat hij het toch gaat doen ??
Bedankt alvast !!Bekijk bijlage foto plakken.xls

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    Const sMap As String = "C:\Users\Pictures\Producten\#.jpg" ''verwijzing naar fotomap
    If Len(Dir(Replace(sMap, "#", Range("C8").Value))) Then
        With ActiveSheet.Pictures.Insert(Replace(sMap, "#", Range("C8").Value))
            .ShapeRange.LockAspectRatio = False
            .Top = Range("B6").Top
            .Left = Range("B6").Left
            .Height = Range("B6").Height
            .Width = Range("B6").Width
        End With
    End If
End Sub

 

[schuurar]

Bedankt Rudi !!! Dit werkt weer geweldig !!