Eliminar hipervínculos: ejemplos de código VBA

Eliminar todos los hipervínculos de una hoja

El siguiente código elimina todos los hipervínculos de Sheet1:

12345 Sub DeleteHyperLinks ()Sheet1.Hyperlinks.DeleteEnd Sub

Y si no necesita una rutina secundaria reutilizable, sino una solución única, use la ventana Inmediato:

1. Seleccione la hoja de la que desea eliminar los hipervínculos.

2. Presione Alt + F11 para abrir el VBE

3. En el menú principal de VBE, elija Ver-> Ventana inmediata

4. En la ventana Inmediato, pegue el siguiente código y luego presione Enter.

1 ActiveSheet.Hyperlinks.Delete

wave wave wave wave wave