¿Qué macro utilizó para insertar una imagen en excel con referencia a una celda?

Que tal quisiera solicitar de su apoyo, estoy elaborando un carnet y si coloco Pedro en la celda H12 se muestre la imagen de pedro, esta foto extraerla de una carpeta externa donde tengo todas las fotos, pero también necesito agregar una condición a la macro aquí es donde tengo el problema, te explico: si en la celda H12 escribo andres me muestra la foto de andres hasta ahi estamos bien porque esa foto la tengo en mi base de datos pero enseguida escribo Eduardo pero no tengo esa foto en la carpeta por lo cual me sigue mostrando la foto de andres pero los datos son de eduardo, no se si me explique hasta aquí.

Lo que necesito es que si escribo un nombre que no exista la foto en la carpeta externa me muestre una imagen de no disponible la cual tengo y la nombre "nodisponible".

Me podrían ayudar por favor.

La Macro que tengo es la siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$H$12" Then
nombre = Target.Value
ActiveSheet.Image1.Picture = LoadPicture("C:\certificados\" & nombre & ".jpg")
End If
End Sub

2 respuestas

Respuesta
2

Reemplaza tu código por este:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$H$12" Then
nombre = Target.Value
Ruta = "C:\certificados\" & nombre & ".jpg"
If Existe(Ruta) Then
'Existe el archivo
ActiveSheet.Image1.Picture = LoadPicture(Ruta)
Else
'No existe el archivo
ActiveSheet.Image1.Picture = LoadPicture("C:\certificados\nodisponible.jpg")
End If
End Sub
Function Existe(Archivo As String) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
Existe = True
Else
Existe = False
End If
End Function

Adicione una función que comprueba si el archivo de imagen existe.

Espero te sirva.

Feliz dia

Juan Carlos

Muchas gracias Juan Carlos eres muy amable; pero que crees que me aparece un error de compilación

"el tipo de argumento de ByRef no coincide"

y se subraya la primer linea de color amarillo.

Que podemos hacer?

Muchas Gracias.

Eduardo

Copia el siguiente código:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ruta As String
On Error Resume Next
If Target.Address = "$H$12" Then
nombre = Target.Value
Ruta = "C:\certificados\" & nombre & ".jpg"
If Existe(Ruta) Then
'Existe el archivo
ActiveSheet.Image1.Picture = LoadPicture(Ruta)
Else
'No existe el archivo
ActiveSheet.Image1.Picture = LoadPicture("C:\certificados\nodisponible.jpg")
End If
End If
End Sub
Function Existe(Archivo As String) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
Existe = True
Else
Existe = False
End If
End Function

Feliz dia

Juan Carlos

Wow, de verdad no sabes como te agradezco tu apoyo me sirvió mucho tu colaboración está excelente.

Que tengas mucho éxito.

Gracias.

Finaliza la pregunta.

Un abrazo

Juan Carlos

Respuesta

Estoy usando parte de esta macro y me aparece "error de compilación: no se ha definido variable" y se pone en amarillo "fso =".
Esta es la macro:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Variant
Dim PictureLoc As String
Dim Nodisponible As String

If Target.Address = Range("N3").Address Then

PictureLoc = "C:\Fotos_Anexo_01\" & Range("N3").Value & ".jpg"
Nodisponible = "C:\Fotos_Anexo_01\nodisponible.jpg"

If Existe(PictureLoc) Then

ActiveSheet.Pictures.LoadPicture (PictureLoc)
Else

ActiveSheet.Picture.LoadPicture = (Nodisponible)

End If
End If
End Sub
Function Existe(Archivo As String) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
Existe = True
Else
Existe = False
End If
End Function

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim myPict As Variant
Dim PictureLoc As String
Dim Nodisponible As String

If Target.Address = Range("N3").Address Then

PictureLoc = "C:\Fotos_Anexo_01\" & Range("N3").Value & ".jpg"
Nodisponible = "C:\Fotos_Anexo_01\nodisponible.jpg"

If Existe(PictureLoc) Then

ActiveSheet.Pictures.LoadPicture (PictureLoc)
Else

ActiveSheet.Picture.LoadPicture = (Nodisponible)

End If
End If
End Sub
Function Existe(Archivo As String) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
Existe = True
Else
Existe = False
End If
End Function

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Excel. Error visual basic 53. ¿Dónde estará el error?

Quiero armar un catálogo con imagen en Excel, siguiendo un tutorial, verifiqué todos los datos hasta la ubicación de la imagen y su nombre, pero me da error 53 en tiempo de ejecución. ¿Qué estará mal? Private Sub Worksheet_SelectionChange(ByVal...
1 respuesta

Ver imagen según dato en celda

Dan tengo este código me hiciste favor de enviarme y funciona bien mi pregunta es si tengo 2 Imagen 1 Imagen 2 como configuro para que en el segundo me aparezca la imagen ya que en el segundo la imagen seria también por folio y la carpeta seria de...
1 respuesta

¿Cómo puedo ajustar una imagen automáticamente en un control ActiveX de imagen?

Tengo una hoja de excel en la que agregue el siguiente código: Private Sub Image1_Click() End Sub Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo final If Target.Address = "$A$1" Then nombre = Target.Value ActiveSheet.Image1.Picture...
2 respuestas

Macro que busque un archivo y lo abra desde cualquier ruta

Quisiera que me ayudaran con mi problema, resulta que tengo una macro que funciona muy bien en mi ordenador, pero resulta que si intento ejecutarlo en otro ordenador me causa error ya que la ruta del archivo del cual extraigo los datos no es la...
2 respuestas

Se puede hacer una macro que teniendo un numero de factura la busque en un archivo de pc y la ponga de un color

Se podrá hacer una macro que teniendo un listado de numero de facturas en una hoja de exel agá una función de buscarlos en una carpeta de mi pc donde tengo mis pdf de las facturas (tiene el mismo nombre los pdf q los que están en el listado) y pueda...
1 respuesta

Macros para mostrar varias imágenes según valor de celda

Tengo la siguiente macro que me arroja la fotografía de un empleado el teclear su número de empleado en determinada celda. Me gustaría que fueran varias celdas que arrojaran varias imágenes según en número de empleado en la misma hoja. ¿Cómo puedo...
2 respuestas

Dividir macro en exel debido a error de longitud

Me estoy iniciando en el mundo de las macros. He creado un muy sencilla con la que puedo visualizar una imagen dependiendo del campo que escriba en una celda, que actuaría de buscador. El problema es que si excedo un determinado número de sentencias,...
2 respuestas

Ayuda al verificar si existe archivo o no en tiempo real y otra

Tengo un formulario en el que tendré 4 etiquetas y 4 botones y 4 timers y no se como puedo hacer en tiempo real sin tener que clicar en cada botón para que me compruebe si existe el fichero 1 i la etiqueta 1 cambiara de color si no existe otro color,...
1 respuesta

Crear un macro para eliminar arhcivos

Quiero generar una macro en excel de forma tal que al ejecutarlo se borren tres archivos dos .xls y un .doc Los nombre de archivos "hola.xls" "como va.xls" y "chau.doc" No sabría como hacer para generar una sola macros para que borre los tres de una...
2 respuestas

Error 53 en tiempo de ejecucion

Nuevamente preguntando, en mi macro tengo una opción para cargar una imagen, tengo un botón para cargarla me abre el cuadro de dialogo para seleccionar la imagen con la función getopenfilename y me carga la imagen, pero tengo un problema, si presiono...
1 respuesta