Insertar imagen en una celda desde Userform

[Otoniel1976]

Hola, tengo un formulario que he hecho, con lo que he averiguado, puedo agregar una imagen desde cualquier ruta externa, lo que no puedo hacer es que se inserte en una celda y que al insertar un nuevo miembro pase a otra celda como hace el texto insertado y que se quede del tamaño de la celda.

Auxilio!!!!!!!!!!! jajajaja

Miembros Pruebas.rar NO SIRVE EL OTRO SI SIRVE

Miembros Pruebas.rar

Miembros Pruebas EDITADO.rar

[davidalejoms]

es como si mandaras mil pizzas a la misma direccion

MiFoto.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cells(1, 1) & ".jpg")[/CODE]

cells(1,1) mada la foto a la fila uno columna uno

lo que yo haría seria añadir una linea que agregue ademas de la foto un uno digamos.

de modo que el uno sea una marca que el visual pueda contar

y poner una variable que devuelva la ultima fila desocupada en la columna donde se quiere poner la foto

y listo..

por supuesto que ese numero que devuelve la variable debes ponerlo en donde corresponde para que se cargue donde quieres

asi:

[CODE]
' variable que cuenta
fila = sheets("tu hoja").range("tucolumna" & rows.count).End(xlUp).row
MiFoto.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cells(fila, 1) & ".jpg")
[/CODE]

me captas la idea?

[Otoniel1976]

davidalejoms

DISCULPA SUBI OTRO ARCHIVO, PRECISO QUE ESTE ARCHIVO, INSERTE IMAGEN EN LA MISMA FILA Y COLUMNA DE CADA MIEMBRO. AHI RE SUBO EL ARCHIVO