2017-07-27

Eliminar todos los hipervínculos de una hoja o libro con VBA

Title

Problema

Necesitamos eliminar todos los hipervínculos de una hoja o de un libro de Excel.

Solución

  1. Abrimos el Editor de Microsoft Visual Basic: Alt+F11.
  2. Copiamos la subrutina correspondiente, para una hoja o para todo el libro, en un módulo.
    • 'Hoja activa
      Sub EliminarHipervínculosHoja()
       ActiveSheet.Hyperlinks.Delete
      End Sub
      
      'Todo el libro
      Sub EliminarHipervínculosLibro()
          Dim ws As Worksheet
          For Each ws In ThisWorkbook.Worksheets
              ws.Hyperlinks.Delete
          Next ws
      End Sub
      
  3. Ejecutamos la subrutina: F5. No se puede deshacer la acción.
  4. Los hipervínculos se habrán eliminado,

Entradas relacionadas

No hay comentarios:

Publicar un comentario

Nube de datos