¿Cómo reemplazar texto por las imágenes correspondientes en Excel?
En la práctica, solemos querer mostrar automáticamente en Excel imágenes asociadas al texto de una celda específica (por ejemplo, imágenes de productos según sus nombres o iconos correspondientes a distintos estados). Como Excel no incluye una función integrada de «texto a imagen», es necesario recurrir a ciertas técnicas para lograrlo. A continuación, este artículo presenta dos soluciones principales y sus respectivos métodos de optimización.
Reemplazar texto por imágenes correspondientes mediante código VBA
Reemplazar texto por imágenes correspondientes con Kutools para Excel
Reemplazar texto por imágenes correspondientes con código VBA
Normalmente, no existe una forma sencilla y directa de insertar imágenes relacionadas según una cadena de texto en Excel, pero el siguiente código VBA le permite reemplazar el texto por su imagen correspondiente.
1. Pulse «Alt + F11» para abrir la ventana de «Microsoft Visual Basic para Aplicaciones».
2. En la ventana, haga clic en «Insertar» > «Módulo» para abrir una nueva ventana de módulo y, a continuación, copie y pegue el siguiente código VBA en ella.
Código VBA: reemplazar texto por 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. A continuación, pulse la tecla F5 para ejecutar este código y seleccione el rango de datos en el que desea insertar las imágenes correspondientes en el cuadro de diálogo emergente; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y todas las imágenes correspondientes reemplazarán el texto original; consulte la captura de pantalla:
Reemplazar texto por imágenes correspondientes con Kutools para Excel
Si no está familiarizado con el código VBA o prefiere no utilizarlo, puede probar Kutools para Excel. Ofrece una solución potente y eficaz que le permite reemplazar fácilmente el texto por imágenes correspondientes con solo unos pocos clics. Con Kutools, puede asociar directamente textos específicos con imágenes predefinidas sin necesidad de escribir ningún código. Además, puede ajustar el tamaño de las imágenes según sus necesidades, lo que le ofrece mayor flexibilidad para adaptarlas a su hoja de Excel.
Tras instalar Kutools para Excel, proceda de la siguiente manera:
1. Haga clic en «KUTOOLS PLUS» > «Importar/Exportar» > «Coincidir importación de imágenes»; consulte la captura de pantalla:
2. En el cuadro de diálogo «Coincidir importación de imágenes», configura las opciones de la siguiente manera:
- En el cuadro de texto «Rango de coincidencia», haga clic para seleccionar el rango de celdas que desea asociar con las imágenes;
- A continuación, haga clic en el botón «Agregar» para seleccionar los archivos de imagen que desea importar;
- Especifique el tamaño de imagen que desea insertar desde el desplegable Tamaño de importación (aquí puede elegir «ajustar al Tamaño de la imagen», «ajustar al tamaño de celda» o «especificar el Tamaño de la imagen», según sus necesidades);
- Seleccione la Orden de importación para sus imágenes;
- Por último, haga clic en el botón «Importar».
3. A continuación, elija una celda para ubicar sus imágenes relacionadas en el cuadro de diálogo emergente «Coincidir importación de imágenes» (también puede seleccionar la celda original del texto). Consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y todas las imágenes que coincidan con el texto se insertarán en la hoja de cálculo; consulte la captura de pantalla:
- Si no hay imágenes que coincidan con el texto, la celda no insertará nada.
- Si desea insertar imágenes horizontalmente, active la opción «Llenar por fila, luego por columna» en la sección «Orden de importación».
En Excel, reemplazar texto por imágenes correspondientes mediante código VBA o con la herramienta Kutools para Excel puede mejorar significativamente tanto la eficiencia en el trabajo como la visualización de los datos. Tanto los scripts VBA como el complemento Kutools permiten a los usuarios realizar este reemplazo de forma rápida, adaptándose a distintas necesidades profesionales. Elegir el método adecuado hace que el procesamiento de datos sea más eficaz e intuitivo, elevando así la calidad general de su trabajo. ¿Quiere descubrir más trucos y consejos de Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos