Macro para control Imagen que guarde en carpeta

[jose lopez contreras]

Hola amigos, buenos dia:

Tengo un userform donde doy de alta a los artículos, pero quisiera ver si se puede colocar un control de Imagen donde con un CommandButton se pudiera insertar la imagen en el control Imagen y al dar guardar a la alta la imagen se guarde en la carpeta imagen. Dejo la macro que tengo hasta ahorita para su análisis y apoyo.

Private Sub Imagen1_Click()
    If TextBox1 <> 0 And TextBoxId <> "" Then
        VerImagen.RenglonImagen = TextBox1
        Set VerImagen.ImageAltas.Picture = FormaCodigos.ImagenPrincipal.Picture
        VerImagen.Top = FormaCodigos.Top
        VerImagen.Left = FormaCodigos.Left
        VerImagen.Show
    End If
End Sub


Private Sub CommandButton4_Click()
    If RenglonInfoTool > 0 Then
        ArchivoSeleccion = Application.GetOpenFilename("JPG Files (*.jpg), *.jpg")
        If ArchivoSeleccion <> False Then
        
            Set Imagen1.Picture = LoadPicture(ArchivoSeleccion)
            FrameRefrescar.Repaint
            
            NuevoArchivo = ThisWorkbook.path & "\imagenes\" & TextBox1 & ".jpg"

            FileCopy ArchivoSeleccion
            Kill ArchivoSeleccion
        End If
        
    Else
        MsgBox "Selecciona primero un item"
    End If
End Sub

 

[jose lopez contreras]

Hola amigos ya logre poner la imagen seleccionada de un archivo cualquiera en el control Image pero aun no logra que esa imagen colocada en el control Image1 se guarde en la carpeta imagen donde esta el libro. alguien podrá echarme una mano. gracias. dejo lo avanzado.

'Private Sub CommandButton4_Click()
'    ArchivoSeleccion = Application.GetOpenFilename ' Elegimos la imagen y la ruta
'    Altas.Image1.Picture = LoadPicture(ArchivoSeleccion) ' cargamos la imagen en el formulario
'    NuevoArchivo = ThisWorkbook.path & "\imagenes\" & TextBox1 & ".jpg" 'Guardar imagen en carpeta
            FileCopy ArchivoSeleccion
            Kill ArchivoSeleccion
'End Sub