Página 1 de 1

Macro para eliminar hipervinculos de Excel

Publicado: 12 Ago 2013 19:40
por lerh13
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: Seleccionar todo

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.