Imagenes en excel

Rutina, de lo que se trata es que me va cambiando las imágenes de acuerdo a un nombre de archivo, hace tiempo me funcionaba muy bien, pero ahora me marca error "se ha producido el error '424' en tiempo de ejecución", " se requiere objeto"
De antemano muchas gracias
Sub aut()
Dim ruta As String
Dim variable As Variant
Sheets("DATOS").Select
Range("AF17").Select
ruta = ThisWorkbook.Path
variable = Trim(ruta & "\" & Range("AF17").Value & ".jpg")
Image1.Picture = LoadPicture(variable)
End Sub

1 Respuesta

Respuesta
1
Así debe de ser tu rutina:
Sub aut()
Dim ruta As String
Dim variable As Variant
Sheets("DATOS").Select
Range("AF17").Select
ruta = ThisWorkbook.Path
variable = Trim(ruta & "\" & Range("AF17").Value & ".jpg")
*** Image1. Picture = LoadPicture(variable) *** MAL
Set Image1.Picture = LoadPicture(variable)
End Sub
Lo único que te faltaba es Setear el objeto, así si funciona.
Gracias por tu pronta respuesta, pero fíjate que ya lo hice como me dices y sigue sin funcionar sigue marcando se ha producido el error '424' en tiempo de ejecución: se requiere objeto
Saludos.
A ver en tu primer post, tienes puesto:
Image1.Picture = LoadPicture(variable)
y eso está mal... tienes que poner:
Set Image1.Picture = LoadPicture(variable)
Yo lo he probado y funciona.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ruta de foto automática

Luis: Buenos días, el archivo de excel maneja un formato y te pega la foto, pero a veces me da error de que no encuentra la ruta y otras veces no me da el error, el archivo siempre esta en una carpeta llamada SIE y dentro de ella esta la carpeta de...
1 respuesta

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

Ayuda con ruta de una carpeta

Tengo el siguiente código, que me hace lo siguiente al digitar un código en un campo de texto y al entrar en el siguiente campo si existe una imagen con ese código me la carga en un campo de image.. El problema es que la ruta que tengo para buscar en...
1 respuesta

Subíndice fuera de intervalo

Ok, tengo un problemilla en Visual Basic resulta que quiero crear un archivo que me extraiga los datos de una base de datos que esta en otra pc, para eso estoy basándome en un archivo que tengo que creo otra persona, pero tengo un problemilla,...
1 respuesta

Cargar imágenes con medida en userform

Tengo el siguiente código para cargar una imagen: Private Sub foto_Click() On Error Resume Next Dim Ruta, Lista As String Ruta = ThisWorkbook.Path nombre = Worksheets("MATRIZGENERAL").Range("b6").Value If Lista = "" Then Exit Sub marcofoto.Picture =...
1 respuesta

Grafica en UseForm

Disculpa tengo una pregunta, ¿De casualidad no sabes si es posible que se pueda insertar en un userform una gráfica pequeña?
1 respuesta

Macro para copiar datos de un libro a otro

Estoy intentando montar una macro que me permita, desde el libro1 en el que la ejecuto, abrir otro libro2, seleccionar un rango de datos, copiarlo y pegarlo en el libro1. Mi conocimiento de visual basic es limitadísimo, así que buscando por ahí...
2 respuestas

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

Código IF, para verificar datos en catalogo de imágenes

Encontré este código para catálogo de imágenes y lo adapte para mis necesidades, explico en una carpeta tengo el archivo y otra subcarpeta las imágenes, de modo que cuando coincida el nombre de la celda, que esta en el rango H4:H701, con el nombre de...
1 respuesta

Exportar datos de access

Estoy intentando exportar ciertos datos de archivo de access a excel, pero al momento de su ejecución me marca error de compilación "No se ha definido el tipo definido por el usuario" de favor me puedes apoyar, a continuación te transcribo el código...
1 respuesta