Exportar imagen de Userform e indicarle guardar en una carpeta y nombre direfente
La imagen es importada de una carpeta para ser mostrada en el formulario y lo que necesito es una vez cargada al formulario exportarla a una carpeta diferente y asignarle el nombre nuevo que dependerá de un label, del cual sera numérico y consecutivo cada que se consulte diferente imagen
Esto es lo que tengo para importar la imagen al formulario:
Private Sub Imagen1_Click()
On Error Resume Next
Archivo = Application.GetOpenFilename
Image1.Picture = LoadPicture(Archivo)
End Sub
1 respuesta
No precisamente se puede "exportar" de un control image a una carpeta.
Lo que te recomiendo es que se copie el archivo origen a otra carpeta y con otro nombre.
Primero, al momento de cargar la imagen, debes guardar la ruta y nombre de archivo en un label, por ejemplo en el Label1
Private Sub Image1_Click() On Error Resume Next archivo = Application.GetOpenFilename Image1.Picture = LoadPicture(archivo) Label1.Caption = archivo End Sub
Ahora, con un botón puedes "exportar", lo que vamos a hacer es tomar el nombre que almacenaste en el Label1 y copiarlo, según comentas: "a una carpeta diferente y asignarle el nombre nuevo que dependerá de un label"; entonces voy a suponer que tienes la carpeta y el nuevo nombre en el Label2, quedaría así:
Private Sub CommandButton1_Click() 'Por.Dante Amor 'Exportar imagen FileCopy Label1.Caption, Label2.Caption MsgBox "Archivo copiado" End Sub
