Buenas noches

[uSER=133908]@bigpetroman[/uSER] , [uSER=9328]@Gerson Pineda[/uSER], [uSER=64660]@asesorcperic[/uSER]

Tal como les había comentando anteriormente en un tema que cree para insertar imágenes con bucle for. Le dejos a su disposición y para los demás; un aporte para registrar nombre e imágenes.

La intención del mismo es;

1. Registra con un formulario un nombre cualquiera
   
2. Registrar con el mismo formulario el nombre de la imagen al cual va como parte del detalle del nombre (Este puede ser código, etc) en lo que se refiere a la base de datos.
   
3. Posteriormente, se debe buscar y actualizar la ruta donde se encuentran las imágenes que tendrá la carpeta correspondiente y con eso es todo. Dicha ruta puede cambiarse al gusto. Si desean guardar la carpeta en una unidad C: o E: o D, cual sea, esta igualmente se puede modificar o cambiar a dicha ruta.
   
4. Importante; para que copien la ruta completa, debe buscarla, abrir dicha carpeta de imágenes y seleccionando cualquier imagen van a sus propiedades y copian las propiedades.
   
5. Pegan la nueva ruta y dan con el botón "Modificar".
   

P.D. Cuando registren el nombre de la imagen, solo debe ser el nombre si .jpg.

Ya con actualizar la ruta, esta será la que se emplee en todo lo referente a las imágenes. La ruta se concatena con el nombre de la imagen mas el ".jpg" y con ello se establece la ruta completa.

test images.zip

Hola [uSER=98799]@Enigma25[/uSER] en cuanto pueda, pruebo tu aporte!, gracias!

Muy bueno. Gracias por los aportes continuos que hace

EMIRO ERAZO

Excelente compañero, muchas gracias por el aporte

Saludos

Ejemplo Imagenes.zip

Esto es solo para dar una mejora del anterior aporte. En este caso, la inserción en el listbox del formulario se hace escribiendo el dato que deseen + la inclusion de la imagen la cual pueden obtener desde la carpeta "Imágenes". Pueden tanto incluirle la imagen como no (Es para prueba en caso de que no la incluyan).

Luego exportan dichos datos con el botón respectivo y la información irá a la hoja2.

P.D. Estaba buscando en Internet la forma de obtener el nombre de la imagen sin la ruta completa. Para ello di con una solución la cual me pareció adecuada y era con el Split y Ubound.

Split : La función SPLIT Microsoft Excel divide una cadena en subcadenas en base a un delimitador. El resultado se devuelve como un conjunto de subcadenas.

Ubound : Devuelve el mayor subíndice disponible para la dimensión indicada de una matriz.

El resultado de ello seria un codigo como el que verán a continuacion :

Dim Splitt() As String '
'Obtener la ruta de la imagen. En este caso solo de la imagen .jpg para mayor precisión
RutaI = Application.GetOpenFilename( _
            FileFilter:="Archivos .JPG (*.jpg),*.jpg", _
            Title:="Select a file or files", _
            MultiSelect:=False)
'Cargar la la ruta de la imagen al control image
    With Image1
        .Picture = LoadPicture("")
        .Picture = LoadPicture(RutaI)
        .PictureSizeMode = fmPictureSizeModeStretch
    End With
'Si el control imagen =0 o que no tiene nada cargado, entonces que limpie el label que es donde se coloca el nombre de la imagen
    If Image1.Picture = 0 Then
        Label5.Caption = ""
    Else
    'Si no, que carge el nombre de la imagen separando el nombre con Split.
    'La función SPLIT Microsoft Excel divide una cadena en subcadenas...
    'en base a un delimitador. El resultado se devuelve como un conjunto de subcadenas.
        Splitt = Split(RutaI, Application.PathSeparator)
    'Ubound : Devuelve el mayor subíndice disponible para la dimensión indicada de una matriz.
        Label5.Caption = Splitt(UBound(Splitt))
    End If

Dado que en muchos casos, la aplicación podría estar en otra pc, lo cual la ruta completa seria un problema. Entonces la solución seria solo el registro del nombre de la imagen y se concatenaría con el .PATH para mostrarse y demás.

Esto es para incluirlo en el nuevo proyecto que vengo trabajando.

Saludos cordiales