hyperlink gekoppeld aan afbeelding kopieren/verplaatsen

[Berg68]

Op een werkblad heb ik veel hyperlinks staan die gekoppeld zijn aan een afbeelding (foto) en niet aan een cel.

Weet iemand hoe met een macro een hyperlink kopieert van de afbeelding naar een cel?

Daarna wil ik de afbeeldingen verwijderen en de hyperlink(s) behouden


Het selecteren van bijvoorbeeld foto 18 lukt nog met onderstaande code:

ActiveSheet.DrawingObjects("Picture 18").Select

Maar dan lukt het me niet om de hyperlink te selecteren en kopieren via vba

 

[WHER]

Kijk eens of het voorbeeld in bijlage je verder helpt.

 

[Berg68]

WHER, dank voor je bijlage voor Movelink. Het gaat in mijn geval om hyperlinks naar webpagina's. Sorry, had ik niet aangegeven.... Als ik de hyperlink in je plaatje wijzig naar http://xxxx dan werkt de macro niet meer.

 

[WHER]

En zo dan:

 

[Berg68]

Werkt geweldig, bedankt!