Guardar Imagen desde PictureBox en User form Excel a Carpeta
Publicado por Oscar (1 intervención) el 01/04/2023 23:50:31
Saludos,
Soy Neofito totalmente en esto de la programaciòn pero quiero hacer mi propio sistema de gestiòn para un negocio que recien voy a comenzar.
Mi Problema es el Siguiente tengo un user Form en el cual doy alta de datos sde productos alli cargo tambien una imagen el asunto es que al pinchar el comand button para cargar los datos la imagen no se guarda en la carpeta especificada y luego me limpie el Image Box.
aqui dejo el codigo como va hasta ahora.
Muchas Gracias Por el apoyo que puedan brindarme.
Soy Neofito totalmente en esto de la programaciòn pero quiero hacer mi propio sistema de gestiòn para un negocio que recien voy a comenzar.
Mi Problema es el Siguiente tengo un user Form en el cual doy alta de datos sde productos alli cargo tambien una imagen el asunto es que al pinchar el comand button para cargar los datos la imagen no se guarda en la carpeta especificada y luego me limpie el Image Box.
aqui dejo el codigo como va hasta ahora.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
Call RegistrarProductos
If Me.Img_Url <> "" Then
Set Guardar = VBA.CreateObject("Scripting.FileSystemObject")
Origen = Me.Img_Url.Value
Destino = "Ruta de Carpeta\" & Cbo_CodPro & ".Jpg" 'El Destino Descrito Asi: "Ruta Carpeta"+Codigo del Producto+".Jpg"
Guardar.Copyfile Origen, Destino
End If
MsgBox "Imagen Registrada"'Img_Load.Picture = LoadPicture("") 'Aqui La idea es limpiar el ImageBox pero tampoco lo haceEnd Sub
Muchas Gracias Por el apoyo que puedan brindarme.
Valora esta pregunta
0