¿Cómo reemplazar texto con imágenes correspondientes en Excel?

En el trabajo práctico, a menudo queremos mostrar automáticamente imágenes correspondientes en Excel basadas en el texto de una celda en particular (por ejemplo, mostrar imágenes de productos según los nombres de los productos o mostrar iconos correspondientes según los estados). Dado que Excel no tiene una función integrada de "texto a imagen", es necesario utilizar algunas técnicas para lograr este objetivo. A continuación, este artículo detallará dos soluciones principales y sus métodos de optimización.

Reemplazar texto con imágenes correspondientes utilizando código VBA

Reemplazar texto con imágenes correspondientes con Kutools para Excel

Reemplazar texto con imágenes correspondientes con código VBA

Normalmente, no hay una manera fácil y directa de insertar imágenes relativas basadas en la cadena de texto en Excel, pero el siguiente código VBA puede ayudarte a reemplazar el texto con su imagen correspondiente.

1. Presiona "Alt + F11" para mostrar la ventana "Microsoft Visual Basic para Aplicaciones".

2. En la ventana, haz clic en "Insertar" > "Módulo" para mostrar una nueva ventana de módulo, luego copia y pega el siguiente código VBA en la ventana del módulo.

Código VBA: reemplazar texto con imágenes correspondientes

Sub ReplaceTextWithPictures()
'Updateby Extendoffice
    Dim ws As Worksheet
    Dim selectedRange As Range
    Dim cell As Range
    Dim pic As Picture
    Dim picPath As String
    Dim foundPic As Boolean
    Dim fileExtensions As Variant
    Dim ext As Variant
    Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
    fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
    On Error Resume Next
    Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
    On Error GoTo 0
    If selectedRange Is Nothing Then
        MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
        Exit Sub
    End If
    Set ws = selectedRange.Worksheet
    For Each cell In selectedRange
        If Not IsEmpty(cell.Value) Then
            foundPic = False
            For Each ext In fileExtensions
                picPath = imageFolderPath & cell.Value & "." & ext
                If Dir(picPath) <> "" Then
                    foundPic = True
                    Exit For
                End If
            Next ext
            If foundPic Then
                For Each pic In ws.Pictures
                    If pic.TopLeftCell.Address = cell.Address Then pic.Delete
                Next pic
                Set pic = ws.Pictures.Insert(picPath)
                With pic
                    .Top = cell.Top
                    .Left = cell.Left
                    .Width = cell.Width
                    .Height = cell.Height
                End With
            End If
        End If
    Next cell
End Sub

3. Luego presiona la tecla F5 para ejecutar este código y selecciona el rango de datos donde deseas insertar las imágenes correspondientes en el cuadro de diálogo emergente, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, todas las imágenes correspondientes reemplazarán el texto original, ver captura de pantalla:

Reemplazar texto con imágenes correspondientes con Kutools para Excel

Si no estás familiarizado o no quieres usar código VBA, puedes probar Kutools para Excel. Ofrece una solución poderosa y eficiente que te permite reemplazar fácilmente texto con imágenes correspondientes en solo unos clics. Con Kutools, puedes hacer coincidir texto específico con imágenes preestablecidas directamente, sin necesidad de escribir ningún código. Además, puedes ajustar el tamaño de las imágenes según tus necesidades, proporcionando más flexibilidad en cómo se ajustan dentro de tu hoja de Excel.

Después de instalar Kutools para Excel, por favor haz lo siguiente:

1. Haz clic en "Kutools Plus" > "Importar y Exportar" > "Coincidir importación de imágenes", ver captura de pantalla:

2. En el cuadro de diálogo "Coincidir importación de imágenes", configura las opciones de la siguiente manera:

• Desde el cuadro de texto "Rango de coincidencia", haz clic para seleccionar el rango de celdas que deseas hacer coincidir con las imágenes;
• Luego, haz clic en el botón "Agregar" para seleccionar los archivos de imagen que deseas importar;
• Especifica el tamaño de la imagen que deseas insertar desde la lista desplegable Tamaño de importación (Aquí, puedes elegir "coincidir con el tamaño de la imagen", "coincidir con el tamaño de la celda" o "especificar el tamaño de la imagen" según sea necesario).
• Selecciona el orden de importación para tus imágenes;
• Finalmente, haz clic en el botón "Importar".
  

3. Luego, selecciona una celda para ubicar tus imágenes relacionadas desde el cuadro de diálogo emergente "Coincidir importación de imágenes" (también puedes seleccionar la celda original del texto), ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, todas las imágenes que coinciden con el texto se han insertado en la hoja de cálculo, ver captura de pantalla:

En Excel, usar código VBA o la herramienta Kutools para Excel para reemplazar texto con imágenes correspondientes puede mejorar significativamente la eficiencia del trabajo y la visualización de datos. Ya sea escribiendo scripts VBA o usando el complemento Kutools, ambos métodos ayudan a los usuarios a lograr rápidamente el reemplazo de texto por imágenes, adaptándose a diferentes necesidades de trabajo. Elegir el método adecuado puede hacer que el procesamiento de datos sea más eficiente e intuitivo, mejorando así la calidad general del trabajo. Si estás interesado en explorar más consejos y trucos de Excel, nuestro sitio web ofrece miles de tutoriales para ayudarte a dominar Excel.