Para eliminar todos los hipervínculos de una hoja activa, el siguiente código es una opción para poder realizarlo:
Eliminar_hipervinculos ()
Do Until ActiveSheet.Hyperlinks.Count = 0
ActiveSheet.Hyperlinks.Delete
Loop
End Sub
Cabe resaltar que solo se elimina el link, mas no el texto que hacía este vínculo.
Ejemplo:
Elaborado por: Carlos Solórzano
Un comentario
Escriba un comentario →