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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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