¿Cómo modificar en excel 2010 parte de un hipervínculo añadido a una imagen?

Tengo un archivo de excel 2010, con bastantes imágenes, cada imagen tiene asociado un hipervínculo que abre otro tipo de archivos (por ejemplo pdf o doc, etc)

A veces ha sido necesario mover la carpeta donde se encuentran dichos archivos, por lo que los hipervínculos quedan inservibles, y ha sido necesario volver a establecer cada liga, de cada imagen, un trabajo que es bastante tardado.

He utilizado la siguiente macro:

Sub HyperLinkChange()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink

oldtext = "(escribir parte de la ruta antigua)"
newtext = "(escribir parte de la nueva ruta )"

For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
If h.TextToDisplay = h.Address Then
h.TextToDisplay = newtext
End If
h.Address = Application.WorksheetFunction. _
Substitute(h.Address, oldtext, newtext)
End If
Next
End Sub

La cual me ha funcionado sólo cuando el hipervínculo esta asociado a un texto, pero cuando agrego un hipervínculo a una imagen me aparece un error en la línea: "If h.TextToDisplay = h.Address "

¿Existe alguna posibilidad de modificar la macro para adecuarla a mis necesidades?