¿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?

2

2 respuestas

Respuesta
1

Modifica:

If h.TextToDisplay = h.Address Then
h.TextToDisplay = newtext
End If

Por

If h.Type=0 Then

    If h.TextToDisplay = h.Address Then
         h.TextToDisplay = newtext
    End If

End if

Respuesta
1

Miera estos link tratan sobre hipervínculos te pueden aportar algo

https://youtu.be/xqovnvqt5ao

https://youtu.be/3pEBHmKEhgY

https://youtu.be/VEUuvAE3Ll0

Aca tienes más sobre hiperlink en excel

https://www.youtube.com/playlist?list=PLdK9H5dMIfQgcGDBkN58AZieS8lWrFLTh

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas