Mostrar imagen por defecto al dar click en un botón (vba excel)
Dante.
En el frm_articulos, al dar click en cmb_nuevo necesito que me muestre la imagen ART14350000 y no la ultima mostrada en el image1.
1 respuesta
Respuesta de Dante Amor
1
Te anexo el código del botón
Private Sub cmb_nuevo_Click() MsgBox "Inserta los datos del nuevo artículo.", vbInformation, "FJPG VIDEOGAMES" 'Activar cajas de texto y botones que necesitamos activar_botones2 'Limpiar cajas de texto Me.txt_codigo = "" Me.txt_nombre = "" Me.cbx_plataforma = "" Me.cbx_consola = "" Me.cbx_categoria = "" Me.cbx_grupo = "" Me.cbx_estado = "" Me.cbx_condicion = "" Me.txt_ubicacion = "" Me.txt_precio_compra = "" Me.txt_precio_venta = "" Me.txt_stock = "" ' img_articulos.Picture = Nothing 'Mandar set focus para añadir nombre txt_codigo.SetFocus ' ruta = ThisWorkbook.Path & "\imagenes\" arch = "ART14350000.jpg" If Dir(ruta & arch) <> "" Then img_articulos.Picture = LoadPicture(ruta & arch) img_articulos.PictureSizeMode = fmPictureSizeModeStretch End If End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
