Hola a todos;

Adjunto una macro que simula un poco a un gestor de imágenes.

En dicha macro hay un formulario y un botón con el cual importo a un listBox los archivos que tengo en una carpeta.

Lo que no sé es como filtrar desde un textBox dicho listBox.

Y también como cargar el listBox el abrir el formulario.

Adjunto macro y un breve video.

https://youtu.be/NkjF21iSoYc

 

MCargar.zip

Buenas, te paso una solución

saludos, Javier

 

MCargarImg_v1.xlsm

Hace 1 hora, JasallBcn dijo:

Buenas, te paso una solución

saludos, Javier

 

MCargarImg_v1.xlsm 42.85 kB · 1 descarga

Hola y gracias por tú  ayuda Jasal.

He probado la macro y muy bien.

Aún no he probado a fondo pero creo que está correcto. 

Si surge algo te cuento. 

Buenas, como no pude editar, te comento.

Hay una hoja oculta "DatosIni" donde se guarda la carpeta ultima abierta. cuando inicias el formulario lee la celda y carga automáticamente las imágenes, te puse un filtro para que solo cargue las Jpg. sí necesitas otros formatos agregalos al condicional.

la carga del directorio la dividido 2, una selecciona la nueva ruta y la otra parte  carga los archivos de la ruta seleccionada , para así poder llamarla cuando cargamos automáticamente la ruta guardada o filtramos por el buscador.

el buscador es case sensitive y si lo vacías carga de nuevo toda la carpeta

Saludos, Javier

 

Hace 10 minutos , JasallBcn dijo:

Buenas, como no pude editar, te comento.

Hay una hoja oculta "DatosIni" donde se guarda la carpeta ultima abierta. cuando inicias el formulario lee la celda y carga automáticamente las imágenes, te puse un filtro para que solo cargue las Jpg. sí necesitas otros formatos agregalos al condicional.

la carga del directorio la dividido 2, una selecciona la nueva ruta y la otra parte  carga los archivos de la ruta seleccionada , para así poder llamarla cuando cargamos automáticamente la ruta guardada o filtramos por el buscador.

el buscador es case sensitive y si lo vacías carga de nuevo toda la carpeta

Saludos, Javier

 

Gracias por todo Javier. 

Cualquier duda te comento. 

Muchísimas gracias  nuevamente. 

? ? 

Mañana, si puedo, te subo un gestor de imágenes.

Hace 12 horas, Antoni dijo:

Mañana, si puedo, te subo un gestor de imágenes.

Hola Antoni , como se dice por aquí "o qué axuda non estorba".

Ahora bien Javier ya ha hecho un excelente trabajo y te ha puesto el listón muy alto.

Saludos y gracias por responder ? 

Aquí estamos, adjunto lo prometido.

La aplicación permite crear cualquier número de álbumes y cualquier número de temas por álbum.

Mostrar el formulario pulsando la imagen de la hoja de presentación.

• Añadir un álbum escribiendo en el combo Álbum y pulsando el botón Añadir álbum.
• Informar el tema de álbum (Opcional) y pulsar el botón Añadir imágenes.
• Pasando el mouse sobre las miniaturas, aparecerá la imagen ampliada.
• Por supuesto, las imágenes no se guardan en la hoja, solo su dirección.
• Una imagen puede estar en varios álbumes.
• Se pueden poner descripciones a las imágenes pulsando en la lista.

 

 

Mis álbumes.xlsm

Hace 1 hora, Antoni dijo:

Aquí estamos, adjunto lo prometido.

La aplicación permite crear cualquier número de álbumes y cualquier número de temas por álbum.

Mostrar el formulario pulsando la imagen de la hoja de presentación.

• Añadir un álbum escribiendo en el combo Álbum y pulsando el botón Añadir álbum.
• Informar el tema de álbum (Opcional) y pulsar el botón Añadir imágenes.
• Pasando el mouse sobre las miniaturas, aparecerá la imagen ampliada.
• Por supuesto, las imágenes no se guardan en la hoja, solo su dirección.
• Una imagen puede estar en varios álbumes.
• Se pueden poner descripciones a las imágenes pulsando en la lista.

 

 

Mis álbumes.xlsm 42.88 kB · 0 descargas

Gracias  Antoni, estoy de puente. 

Lo veo a la  vuelta.  ? 

En 14/4/2022 at 20:14 , Antoni dijo:

Aquí estamos, adjunto lo prometido.

La aplicación permite crear cualquier número de álbumes y cualquier número de temas por álbum.

Mostrar el formulario pulsando la imagen de la hoja de presentación.

• Añadir un álbum escribiendo en el combo Álbum y pulsando el botón Añadir álbum.
• Informar el tema de álbum (Opcional) y pulsar el botón Añadir imágenes.
• Pasando el mouse sobre las miniaturas, aparecerá la imagen ampliada.
• Por supuesto, las imágenes no se guardan en la hoja, solo su dirección.
• Una imagen puede estar en varios álbumes.
• Se pueden poner descripciones a las imágenes pulsando en la lista.

 

 

Mis álbumes.xlsm 42.88 kB · 2 descargas

Buenos días Antoni;

Pues efectivamente decir que te lo has currado.

Está genial tanto a nivel visual como de desarrollo.

Hay una cosa que  no comprendía bien y es que no veía por ningún lado los optionButtons que cambian la forma de presentar la imagen pero veo que pulsando sobre la miniatura nos va pasando por las tres presentaciones de las que dispone.

Si una imagen no aparece "vertical" se podría incluir una opción para que las mostrase "vertical" u "horizontal".

Digo esto porque en alguna me ocurrió.

No he visto esta opción pero ahí queda la incógnita.

Un abrazo Antoni "e moi bó traballo", los galones son los galones.

A la orden.

Cita

Si una imagen no aparece "vertical" se podría incluir una opción para que las mostrase "vertical" u "horizontal".

Con un control picture no es posible, no tiene esa propiedad. ?

 

Editado el el 16 de abril3 años por Antoni

Hace 2 horas, Antoni dijo:

Con un control picture no es posible, no tiene esa propiedad. ?

 

Me lo imaginaba, ese control se lo pierde, voy desarrollar uno nuevo ???.

Aún así sigue estando genial, me ha encantado. 

Hasta la próxima y muchas ... gracias. 

??

Bueno... ¿qué podemos decir? Antoni es Antoni! Él pone a bailar a Excel al ritmo que desee y nunca deja de sorprendernos. Alucinante trabajo!

Hace 23 minutos , DiegoPC dijo:

Bueno... ¿qué podemos decir? Antoni es Antoni! Él pone a bailar a Excel al ritmo que desee y nunca deja de sorprendernos. Alucinante trabajo!

Sí,  creo que lo creo él. 

La verdad que cada día nos asombra con sus genealidades. 

Hace 1 hora, DiegoPC dijo:

Bueno... ¿qué podemos decir? Antoni es Antoni! Él pone a bailar a Excel al ritmo que desee y nunca deja de sorprendernos. Alucinante trabajo!

A "Excel" me refería, el archivo ya sé que lo creó  Antoni??.

Por si hubiese malos entendidos.