Imagen por defecto en image1 (vba excel)
mas dudas acerca del image1 en form.
Busque por internet, adapte un par de código que encontré a mi form, pero no me funcionan.
Tengo una imagen .jpg llamada ART-15930000 con el texto añadir imagen.
Necesitaría que al moverme por mis artículos los que no tuvieran imagen saliera siempre esa imagen por defecto.
Conforme tengo ahora el código y clicando en los botones o seleccionando código en el cbx_codigo.
ART-15930001 tiene imagen y sale su imagen.
ART-15930002 tiene imagen y sale su imagen.
ART-15930003 no tiene imagen y sale la ultima imagen mostrada en el image1.
ART-15930004 tiene imagen y sale su imagen.
1 Respuesta
en el frm_articulos.
Voy pasando de articulo, tanto en los botones de primero, anterior, siguiente y ultimo o eligiendo en el combobox un codigo, se me cambia la imagen del producto. Pero siempre y cuando ese producto tenga imagen guardada previamente en mi carpeta "imagenes" (nombrada con el numero de articulo).
Si el producto seleccionado no tiene imagen, me muestra la ultima imagen mostrada en el image1.
Lo que quiero es que, el articulo que no tenga imagen me muestre una por defecto que tengo.
Se llama ART-15930000.
Alguna duda me dice.
GRACIAS!!!
Sr Dante le mande hace días el archivo.
Supongo que esta ocupado.
No me llegó el archivo, podrías enviarlo nuevamente
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “fjpg81”
¡Gracias!
Archivo enviado.
Te anexo el código
Private Sub cbx_codigo_Change() Dim fila As Long Dim final As Long img_articulos.Picture = Nothing If cbx_codigo.Text = "" Then Me.cbx_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 = "" End If ' final = GetUltimoR(Hoja2) For fila = 2 To final If cbx_codigo.Text = Hoja2.Cells(fila, 1) Then Me.cbx_nombre = Hoja2.Cells(fila, 2) Me.cbx_plataforma = Hoja2.Cells(fila, 3) Me.cbx_consola = Hoja2.Cells(fila, 4) Me.cbx_categoria = Hoja2.Cells(fila, 5) Me.cbx_grupo = Hoja2.Cells(fila, 6) Me.cbx_estado = Hoja2.Cells(fila, 7) Me.cbx_condicion = Hoja2.Cells(fila, 8) Me.txt_ubicacion = Hoja2.Cells(fila, 9) Me.txt_precio_compra = Hoja2.Cells(fila, 10) Me.txt_precio_venta = Hoja2.Cells(fila, 11) Me.txt_stock = Hoja2.Cells(fila, 12) ruta = ThisWorkbook.Path & "\imagenes\" arch = cbx_codigo.Text & ".jpg" If Dir(ruta & arch) <> "" Then img_articulos.Picture = LoadPicture(ruta & arch) img_articulos.PictureSizeMode = fmPictureSizeModeStretch Else If Dir(ruta & "ART14350000.jpg") <> "" Then img_articulos.Picture = LoadPicture(ruta & "ART14350000.jpg") End If End If Exit For End If Next End Sub
R ecuerda cambiar la valoración a la respuesta. Sal u dos
