XL2000: Sin comando de menú para seleccionar todos los hipervínculos en una hoja de cálculo

Seleccione idioma Seleccione idioma
Id. de artículo: 213790 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

Síntomas

Microsoft Excel 2000 no dispone de ningún comando de menú que le permite seleccionar todos los hipervínculos dentro de una hoja de cálculo.

Solución

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo, pero sin limitarse a, las garantías implícitas de comerciabilidad e idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y las herramientas utilizadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos a necesidades específicas.
Si tiene poca experiencia en programación, desea póngase en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:

Microsoft certificado Partners - https://partner.microsoft.com/global/30000104

Servicios de asesoramiento de Microsoft - http://support.microsoft.com/gp/advisoryservice

Para obtener más información acerca de las opciones de soporte técnico que están disponibles y cómo ponerse en contacto con Microsoft, visite el siguiente sitio Web de Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPara evitar este comportamiento, utilice una macro para seleccionar todas las celdas que contengan hipervínculos.
  1. Crear un nuevo libro en Microsoft Excel.
  2. En el menú Herramientas , elija macro y, a continuación, haga clic en Editor de Visual Basic .
  3. En el Editor de Visual Basic, en el menú Insertar , haga clic en módulo .
  4. Escriba el siguiente código en el módulo:
    'This Sub procedure selects all cells in the worksheet that contain
    'hyperlinks. You can then clear the selected cells to delete all of
    'the hyperlinks.
    Sub SelectAllHyperlinkCells()
        FirstCell = 1
        For Each xLink In ActiveSheet.Hyperlinks
            If FirstCell = 1 Then
                Set xRange = xLink.Range
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xLink.Range)
            End If
        Next xLink
        xRange.Select
    End Sub
    					

Más información

Otras macros para trabajar con hipervínculos

Puede utilizar un Microsoft subrutina de Visual Basic para aplicaciones para recorrer todos los hipervínculos dentro de una hoja de cálculo y realizar una operación específica en cada hipervínculo. Por ejemplo, puede eliminar todos los hipervínculos o simplemente puede informar de la ubicación de cada hipervínculo.

Nota : algunas líneas de código se han modificado con caracteres de continuación de línea (_) para ajustar este documento.
  1. Crear un nuevo libro en Microsoft Excel.
  2. En el menú Herramientas , elija macro y, a continuación, haga clic en Editor de Visual Basic .
  3. En el Editor de Visual Basic, en el menú Insertar , haga clic en módulo .
  4. Escriba el siguiente código en el módulo:
    'This Sub procedure deletes all hyperlinks in the active worksheet.
    
    Sub DeleteAllHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            xLink.Delete
        Next xLink
    End Sub
    
    'This Sub procedure displays a series of message boxes indicating
    'the location of each hyperlink in the active worksheet.
    Sub ReportHyperlinkLocations()
       For Each xLink In ActiveSheet.Hyperlinks
            MsgBox xLink.Range.Address
        Next xLink
    End Sub
    
    'This Sub procedure identifies each hyperlink and asks if you want
    'to delete it. If you click Yes, the hyperlink is deleted.
    Sub ReportAndDeleteHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            Response = MsgBox("Delete hyperlink in cell " & _
                xLink.Range.Address & " ?", vbYesNo)
            If Response = vbYes Then xLink.Delete
        Next xLink
    End Sub
    					
  5. En el menú archivo , haga clic en Cerrar y volver a Microsoft Excel .
Si inserta algunos hipervínculos en la hoja de cálculo, puede ejecutar las macros diferentes seleccionando macro en el menú Herramientas y, a continuación, haciendo clic en macros . Seleccione el nombre de la macro para ejecutar y, a continuación, haga clic en Ejecutar .

La macro DeleteAllHyperlinks() elimina la propiedad hipervínculo del rango, pero no el texto del hipervínculo. Deja detrás del texto de hipervínculo.

Referencias

Para obtener más información sobre hipervínculos, en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba el objeto de hipervínculo en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Propiedades

Id. de artículo: 213790 - Última revisión: viernes, 24 de enero de 2014 - Versión: 3.5
La información de este artículo se refiere a:
  • Microsoft Excel 2000 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 213790

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com