Insertar imagen en archivo creado con buscarv en excel
Tengo un archivo creado en excel es un buscador de base de datos esta echo con buscarv es muy básico al momento de ingresar el id (clave para buscar) aparecen los datos pero quiero que también salga la foto de la persona, estas imágenes se encuentran en carpetas externas
Respuesta de Dante Amor
1
Para insertar la imagen puedes utilizar una macro.
Pero tienes que ejecutar la macro presionando un botón.
Además tienes que poner en alguna celda la carpeta donde está la foto y en otra celda el nombre de la foto
También tienes que indicar en cuáles celdas quieres poner la foto.
Actualiza los datos en estas líneas de la macro
ruta = Range("D2") 'celda de la carpeta
arch = Range("E2") 'celda con el nombre del archivo
Set r = Range("D4:F8") 'rango de celdas para poner la imagenLa macro completa:
Sub Insertar_Imagen()
'Por.Dante Amor
ruta = Range("D2") 'celda de la carpeta
arch = Range("E2") 'celda con el nombre del archivo
Set r = Range("D4:F8") 'rango de celdas para poner la imagen
'
On Error Resume Next
ActiveSheet.DrawingObjects("foto").Delete
On Error GoTo 0
If Dir(ruta & arch) = "" Then
MsgBox "La imagen no existe"
Exit Sub
End If
With ActiveSheet.Pictures.Insert(ruta & arch)
.Name = "foto"
.Top = r.Top
.Left = r.Left
.Width = r.Width
.Height = r.Height
End With
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Insertar_Imagen
- Aceptar.
- Para ejecutarla dale click a la imagen.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
