¿Cómo reemplazar el texto con las imágenes correspondientes en Excel?
Digamos que tengo una lista de nombres de productos en una hoja de trabajo y hay una carpeta que contiene las imágenes correspondientes de los nombres de productos en el disco de la computadora. Ahora, necesito encontrar y reemplazar los nombres de los productos con sus imágenes relativas en Excel sin insertarlos uno por uno como se muestra en las siguientes capturas de pantalla. ¿Existe alguna solución buena y rápida para hacer frente a este trabajo en Excel?
Reemplace el texto con las imágenes correspondientes con el código VBA
Reemplace el texto con las imágenes correspondientes con Kutools para Excel
Reemplace el texto con las imágenes correspondientes con el código VBA
Normalmente, no existe una manera fácil y directa para que insertemos las imágenes relativas basadas en la cadena de texto en Excel, pero el siguiente código VBA puede ayudarlo a reemplazar el texto con su imagen correspondiente.
1. Prensa Alt + F11 para mostrar el Microsoft Visual Basic para aplicaciones ventana.
2. En la ventana, haga clic en recuadro > Módulo para mostrar una nueva ventana de módulo, luego copie y pegue el siguiente código VBA en el módulo ventana.
Código VBA: reemplace el texto con las imágenes correspondientes
Sub InsertPicture()
'Upadateby Extendoffice
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
If Rng.Value <> "" Then
If Dir(xPath & Rng.Value & ".jpg") <> "" Then
ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Rng.Left
.Top = Rng.Top
.Width = Rng.Width
.Height = Rng.Height
End With
Rng.ClearContents
Else
Rng.Value = "N/A"
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Entonces presione 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, vea la captura de pantalla:
4. Y luego haz clic OK , todas las imágenes correspondientes con el mismo tamaño que las celdas serán reemplazadas con el texto original, vea las capturas de pantalla:
Notas:
1. En el código anterior, debe cambiar la ruta de la carpeta de las imágenes según sus necesidades. xPath = "C:\Usuarios\dt\Desktop\Fruits\".
2. Si no hay imágenes correspondientes que coincidan con el texto, se mostrará el error N/A.
Reemplace el texto con las imágenes correspondientes con Kutools para Excel
Como el código anterior es difícil de dominar, aquí les presentaré una herramienta sencilla y poderosa: Kutools for Excel, Con su Imágenes de importación de partidos función, puede insertar rápida y cómodamente las imágenes para que coincidan con la lista de texto.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haz lo siguiente:
1. Hacer clic Kutools Más > Importación y exportación > Imágenes de importación de partidos, ver captura de pantalla:
2. En la Imágenes de importación de partidos cuadro de diálogo, haga clic en para seleccionar el rango que desea hacer coincidir con las imágenes, vea la captura de pantalla:
3. Entonces en el Imágenes de importación de partidos diálogo, haga clic Añada > Archive or carpeta Para encontrar las imágenes que desea insertar, consulte la captura de pantalla:
4. Después de insertar las imágenes correspondientes, haga clic en Tamaño de importación botón, en el siguiente Importar tamaño de imagen , especifique una opción para el tamaño de su imagen. Ver captura de pantalla:
5. Luego haga clic OK > Importay luego elija una celda para ubicar sus imágenes relativas en el cuadro emergente Imágenes de importación de partidos diálogo (también puede seleccionar la celda original del texto), vea la captura de pantalla:
6. Y luego haz clic OK Botón, todas las imágenes que coinciden con el texto se han insertado en la hoja de trabajo, ver captura de pantalla:
Notas:
1. Si no hay imágenes que coincidan con el texto, la celda no insertará nada.
2. Si desea insertar imágenes horizontalmente, puede marcar Llenar horizontalmente celda tras celda existentes Orden de importación .
¡Descargue y pruebe Kutools para Excel ahora!
Demostración: reemplace el texto con las imágenes correspondientes con Kutools para Excel
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!