Macro para eliminar hipervinculos de Excel

Solo aportes de interés para otros usuarios Excel
Estos foros NO son para preguntas!
Reglas del Foro
En estos foros solo puedes hacer aportes Excel de interés para la comunidad (no son para hacer preguntas!)
Responder
lerh13
Miembro Frecuente
Miembro Frecuente
Mensajes: 62
Registrado: 23 Ene 2012 14:32

Macro para eliminar hipervinculos de Excel

Mensaje por lerh13 » 12 Ago 2013 19:40

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.



Responder