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!)

Macro para eliminar hipervinculos de Excel

Notapor 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.
lerh13
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 58
Registrado: 23 Ene 2012 14:32

Volver a TUS APORTES

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado