¿Cómo extraer hipervínculos de múltiples imágenes en Excel?

Supongamos que tienes una lista de imágenes en una hoja de cálculo, y cada imagen contiene un hipervínculo. Ahora, te gustaría extraer las direcciones reales de los hipervínculos de estas imágenes a las celdas adyacentes, como se muestra en la siguiente captura de pantalla. Por supuesto, puedes copiar la dirección del hipervínculo desde el cuadro Editar hipervínculo uno por uno, pero esto será muy lento si hay múltiples hipervínculos que necesitan ser extraídos. En este artículo, te presentaré algunos métodos para resolver esta tarea rápidamente y con facilidad en Excel.

Extraer hipervínculos de múltiples imágenes con código VBA

Extraer hipervínculos de múltiples imágenes con código VBA

El siguiente código VBA puede ayudarte a extraer las direcciones reales de las múltiples imágenes con hipervínculos de una vez. Por favor, sigue paso a paso:

1. Mantén presionadas las teclas ALT + F11 en Excel para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Código VBA: Extraer direcciones reales de múltiples imágenes con hipervínculos

Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
    Dim xSh As Shape
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xSh In ActiveSheet.Shapes
        If xSh.Type = msoPicture Then
            On Error Resume Next
            Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
            On Error GoTo 0
        End If
    Next
    Application.ScreenUpdating = xScreen
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y todas las direcciones de los hipervínculos se habrán extraído en las celdas correspondientes junto a las imágenes, como se muestra en la siguiente captura de pantalla:

Nota: Este código extraerá direcciones reales de todas las imágenes en la hoja de trabajo actual.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!