Excel Como exibir foto ao deslocar curso do mouse me listbox

[josequali]

BOM DIA ! alguém pode me dizer qual o erro do meu código? fiz tudo de acordo com o vídeo (link abaixo), mas a imagem não aparece. (o nome do local de inserção da imagem (load) é imagem1)

 

https://drive.google.com/file/d/1YygYT8J_G19Fqt8uXKMEcFzZabMRCC-x/view?usp=sharing

 

- Queria também conseguir adaptar no meu painel a opção de buscar os meus registros de acordo com o optionbutton para ID, Procedência e  Status), já tentei vários vídeos mas não consigo.

 

Estarei encaminhando meu modelo de formulário também. Serei muito grato por qualquer ajuda. Obrigado mesmo.

 

 

Código

 

 

Private Sub ListBox1_Change()

imagem1.Picture = LoadPicture("")

itens = Me.ListBox1.ListCount

For i = 0 To itens - 1

If Me.ListBox1.Selected(i) Then

xCod = Me.ListBox1.List(i)

End If

Next

Dim LocalImagens As String

Planilha9.Visible = True

Planilha9.Select

With Worksheets("bancodedadosocorrencia").Range("A:A")

'On Error Resume Next

Set c = .Find(xCod, LookIn:=xlValues, lookat:=xlWhole)

If Not c Is Nothing Then

c.Activate

'On Error Resume Next

LocalImagens = c.Offset(0, 13).Value

'On Error Resume Next

imagem1.Picture = LoadPicture(LocalImagens)

End If

End With

End Sub

formulario vba 1.0.zip

[Midori]

@josequali  Veja se o caminho da imagem está correto na coluna N.

 

Tem que ser completo, p. ex: C:\Pasta\Imagem.jpg.

[josequali]

@Midori está assim: "C:\Users\Paloma\Desktop\imagensnf\.jpg"

[josequali]

@Midori Consegui. Muito obrigado. O problema é porque estava com aspas. Muito obrigado! :). Agora só preciso saber como fazer um filtro de pesquisa com opttion button, espero que alguém possa me ajudar. Já estou a duas semanas tentando criar o filtro e nada.

[Midori]

11 horas atrás, josequali disse:

Agora só preciso saber como fazer um filtro de pesquisa com opttion button

Com o Option definindo a coluna de pesquisa? Se for isso é só atribuir o índice da coluna a uma variável de acordo com o botão para usar em List, p.ex primeira linha da coluna atribuída: ListBox1.List(0, Variavel).

[josequali]

@Midori boa noite! tudo bem? você poderia me dar uma força nesse tópico? Desde já agradeço.