Como mostrar una imagen de una lista

[Alexandercd9]

Hola estimados buenas tardes,

tengo un problema, estoy haciendo un sistema de facturación en macros y cuando hago Click en el botón Buscar Articulo me sale una lista de mis productos pero al costado quiero que salga la imagen que esta guardada en una carpeta espero su ayuda, gracias

[DiegoLG]

Normas - Política - Términos | Ayuda Excel

Saludos

[Alexandercd9]

Hola diego tendras algun ejemplo para yo poder guiarme porfavor

Gracias.

[DiegoLG]

es un aporte de [uSER=9328]@Gerson Pineda[/uSER].

Solucionado - Cargar imagen al dar clip en item de listbox

Saludos

[Alexandercd9]

Gracias Diego, ya lo hice pero ahora en el formulario desaparece los bordes, creo que ya quiere pero me falta algo me puedes ayudar porfavor

Private Sub LSTART_Click()



    vr = ActiveWorkbook.Path: vse = Application.PathSeparator

    vnf = Me.LSTART.Column(1): foto = vr & "\Productos\" & Target & ".jpg"

    nofoto = vr & vse & "imagennodisponible" & ".jpg"


    With Me.Image1

    .Visible = True

    .Height = 200

    .Left = 220

    .Top = 400

    .Width = 300

    On Error GoTo error:

        .Picture = LoadPicture(foto)

        .PictureSizeMode = fmPictureSizeModeZoom

        GoTo ira:

error:

        .Picture = LoadPicture(nofoto)

        .PictureSizeMode = fmPictureSizeModeZoom

    End With

ira:


End Sub[/CODE]

[Alexandercd9]

Ya me salio amigo, pero ahora tengo un problema tengo una imagen de 500*400 pero me sale muy grande habra alguna manera de que todas las imagenes se puedan reducir y que salga bien en el cuadro

    Productos = LSTART.List(LSTART.ListIndex) & ".jpg"

    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Productos\" & Productos)


    With Me.Image1

    .Visible = True

    .Height = 138

    .Width = 151

     End With[/CODE]

[DiegoLG]

lo que yo haría es disminuir el tamaño de la imagen hay muchas paginas donde puedes editar imagenes..

Saludos.

[Alexandercd9]

siii pero justo esas imagenes lo uso para otros y la verdad q no quisiera tener 2 imagenes con diferentes medidas, sabes de alguna solucion para hacerlo en macro

gracias

[DiegoLG]

aqui te dejo un código y me comentas si es lo que necesitas.

Private Sub CommandButton1_Click()

Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub[/CODE]

Saludos

[Alexandercd9]

Hola diego pero esto donde lo agrego si mi codigo es:

    Productos = LSTART.List(LSTART.ListIndex) & ".jpg"

    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Productos\" & Productos)


    With Me.Image1

    .Visible = True

    .Height = 138

    .Width = 151

     End With[/CODE]

Gracias amigo,

[DiegoLG]

En teoría cualquier procedimiento todo tiene un inicio y un fin.

entonces, lo que tienes que hacer es ajustar la imagen al momento que te aparesca en el formulario... en este caso lo agregaríaS al final.

Me explico?

[Alexandercd9]

Hola Diego eres un Capo, muchas Gracias Amigo, ahora una consulta si quisiera darle click a la imagen para verlo mas grande como podria hacerlo, te envio para que veas como quedo.

en la cuarta columna esta el precio pero el problema que me sale muchos decimales como podria hacer para que solo me salga 2, Gracias

LSTART.ColumnCount = 6

LSTART.AddItem

ActiveCell.Offset(0, -1).Select

LSTART.List(LSTART.ListCount - 1, 0) = ActiveCell.Value

ActiveCell.Offset(0, 1).Select

LSTART.List(LSTART.ListCount - 1, 1) = ActiveCell.Value

ActiveCell.Offset(0, 1).Select

LSTART.List(LSTART.ListCount - 1, 2) = ActiveCell.Value

ActiveCell.Offset(0, 2).Select

LSTART.List(LSTART.ListCount - 1, 3) = Replace(Val(ActiveCell.Value), ",", ".")

ActiveCell.Offset(0, 3).Select

LSTART.List(LSTART.ListCount - 1, 4) = ActiveCell.Value

ActiveCell.Offset(0, 1).Select

LSTART.List(LSTART.ListCount - 1, 5) = ActiveCell.Value

ActiveCell.Offset(0, -7).Select[/CODE]

[DiegoLG]

estos ya corresponde a otra consulta, ya que lo anterior creo que ya solucionaste no? pero aqui te envío el zoom de imagen

si quisiera darle click a la imagen para verlo mas grande como podria hacerlo,

Private Sub Image1_Click()

With Image1

    .Height = 84

    .Width = 84

End With

End Sub


Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

With Image1

    .Height = 150


    .Width = 150


End With

End Sub

[/CODE]

Saludos

[Alexandercd9]

Hola diego mucha gracias por tu ayuda eres un capo,

sobre el zoom no realmente era asi solo q al dar clik en la imagen se habra un formulario con la imagen pero ya en tamaño real

Gracias

[DiegoLG]

dar clik en la imagen se habra un formulario con la imagen pero ya en tamaño real

Con el permiso del maestro [uSER=46507]@Macro Antonio[/uSER]

te adjunto este archivo

Saludos

Ampliar imagen.xls

[Alexandercd9]

justo estaba buscando en el foro y encontre este archivo y te cuento que me salio el unico problema es que cuando le doy cerrar mi informacion mi lista se duplica, me podrias ayudar diego, muchas gracias por tu ayuda amigo. te adjunto las imagenes, no te puedo adjuntar el archivo ya que es muy pesado

[DiegoLG]

aqui te dejo otra opción para que puedes mostrar en otro formulario la imagen

Private Sub Image1_Click()

UserForm2.Image1.Picture = Image1.Picture

UserForm2.Show

End Sub[/CODE]

te adjunto las imagenes, no te puedo adjuntar el archivo ya que es muy pesado

sin archivo no se puede adivinar.

Saludos

[Alexandercd9]

Hola [uSER=87985]@Diego9019[/uSER], te parece si te puedo adjuntar en dropbox, de esa manera ya lo habia intentado antes de enviarte la imagen

Gracias

[Alexandercd9]

Hola [uSER=163374]@Diego9019[/uSER] ahi te adjunto en dropbox, gracias

Dropbox - Sistema.rar