Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

doc reemplazar texto con la imagen 1  2 doc reemplazar texto con la imagen 2

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 los 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. ¿Hay alguna solución buena y rápida para hacer frente a este trabajo en Excel?

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

Reemplazar texto con imágenes correspondientes con Kutools para Excel


Inserte imágenes basadas en valores de celda en una columna:

Con Kutools for Excel, Igualar fotos de importación utilidad, puede insertar imágenes coincidentes basadas en los valores de celda de manera rápida y fácil.

doc reemplazar texto con la imagen 12

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


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


Normalmente, no hay una manera fácil y directa para nosotros de insertar 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, haz clic recuadro > Módulo para mostrar una nueva ventana de módulo, luego copie y pegue el siguiente código de VBA en el módulo ventana.

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

Sub InsertPicture()
'Upadateby20150423
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 clave para ejecutar este código, y seleccione el rango de datos que desea insertar las imágenes correspondientes en el cuadro de diálogo emergente, ver captura de pantalla:

doc reemplazar texto con la imagen 3

4. Y luego haz clic OK botón, todas las imágenes correspondientes con el mismo tamaño que las celdas serán reemplazadas por el texto original, ver capturas de pantalla:

doc reemplazar texto con la imagen 4  2 doc reemplazar texto con la imagen 5

Notas:

1. En el código anterior, debe cambiar la ruta de la carpeta de las imágenes a su necesidad, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".

2. Si no hay imágenes correspondientes para que coincidan con el texto, se mostrará el error N / A.


Reemplazar texto con imágenes correspondientes con Kutools para Excel

Como el código anterior es difícil de dominar, aquí, le presentaré una herramienta fácil y potente: Kutools for Excel, con su función Match Import Pictures, puede insertar las imágenes de manera rápida y conveniente para que coincidan con la lista de texto.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Empresa > Import / Export > Igualar fotos de importación, mira la captura de pantalla:

doc reemplazar texto con la imagen 6 6

2. En la Igualar fotos de importación cuadro de diálogo, haga clic en doc reemplazar el botón de texto 1 para seleccionar el rango que desea que coincida con las imágenes, ver captura de pantalla:

doc reemplazar texto con la imagen 7 7

3. Entonces en el Igualar fotos de importación diálogo, haga clic Añadir > Envíe el or carpeta para encontrar las imágenes que desea insertar, vea la captura de pantalla:

doc reemplazar texto con la imagen 8 8

4. Después de insertar las imágenes correspondientes, haga clic Tamaño de importación botón, en el siguiente Importar tamaño de imagen diálogo, especifique una opción para el tamaño de su imagen. Ver captura de pantalla:

doc reemplazar texto con la imagen 9 9

5. Luego haga clic OK > Importación, y luego elija una celda para ubicar sus imágenes relativas desde la ventana emergente Igualar fotos de importación diálogo (también puede seleccionar la celda original del texto), vea la captura de pantalla:

doc reemplazar texto con la imagen 10 10

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:

doc reemplazar texto con la imagen 11 11

Notas:

1. Si no hay imágenes coincidentes con el texto, la celda no insertará nada.

2. Si desea insertar imágenes horizontalmente, puede verificar Rellenar horizontalmente celda tras celda en el objeto Orden de importación .

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Demo: Reemplazar texto con imágenes correspondientes con Kutools para Excel

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.