• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Macro para eliminar hipervinculos de Excel

lerh13

Member
Hola que tal a todos,

Durante la semana anterior estuve lidiando con un archivo de excel que tenia vínculos a otro libro y lo que quería era una macro que eliminara esos vínculos, encontré muchas opciones en la web pero ninguna me daba los resultados que necesitaba hasta que encontré la solución. Espero que a ustedes también les sirva:
Código:
Sub UseBreakLink() 

Dim astrLinks As Variant 

' Definir variable como un tipo de vínculo Excel 
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks) 

' Rompa el primer eslabón en el libro activo.
ActiveWorkbook.BreakLink _ 
Name:=astrLinks(1), _ 
Type:=xlLinkTypeExcelLinks 

End Sub

Basta solo con pegarlo en algún módulo de VBA y ejecutarlo.
 
Arriba