Jump to content
PeterBridges

Modificar dirección hipervinculos

Recommended Posts

Hola a todos

Tengo un problema con hipervínculos. Tengo 2 archivos excel en una carpeta llamada "Matriz de calidad"

Archivo1: "Matriz de Calidad".Tiene distintas pestañas. En las celdas de la columna A de cada pestaña tiene hipervínculos apuntando al archivo "Matrix pictures". Las celdas con hipervínculos están desde la A3 en adelante, pero algunas celdas están vacías.

-Archivo2: "Matrix pictures". También tiene distintas pestañas. En las celdas de la columna A de cada pestaña hay fotos (que son a las que apunta el "Matriz de calidad"). Las celdas con fotos están desde la A1 en adelante

He estado trabajando en OneDrive con estos 2 archivos con hipervínculos durante mucho tiempo sin problema. Cuando movía la carpeta de sitio, los hipervínculos se mantenían (entiendo que porque eran relativos entre ellos). De repente ayer abrí el archivo en mi OneDrive desde otro ordenador y se modificaron todos los hipervínculos. Ahora aparece como ruta la página web de OneDrive..

Necesito modificar los hipervínculos a como estaban originalmente, y estoy probando con un código que se ha indicado previamente en el foro, pero le doy a ejecutar y no sale nada. Me podéis ayudar?

Sub hipervinc_cambio()

    Dim hpVinc As Hyperlink

    Dim strOldAddress As String, strNewAddres As String

    strOldAddress = "https://elcorteingles-my.sharepoint.com/personal/pluis_delapuente_elcorteingles_es/Documents/Trabajo/HGs%20Quality%20Matrix%20project/Matriz%20de%20calidad/Matrix%20pictures.xlsx"

    strNewAddres = "/HGs%20Quality%20Matrix%20project/Matriz%20de%20calidad/Matrix%20pictures.xlsx"

    For Each hpVinc In ActiveSheet.Hyperlinks

        hpVinc.Address = Replace(hpVinc.Address, strOldAddress, strNewAddres)

    Next

End Sub

Necesito que el hipervínculo vuelva a hacer referencia sólo a la carpeta "Matriz de calidad" donde están contenidos ambos archivos

Gracias por adelantado

Matriz de calidad.rar

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy