josequali

Boa noite! Pessoal gostaria de se alguém sabe como transferir uma imagem do excel (VBA) do listbox para um campo especifico do word. Já consigo fazer com texto, mas queria tentar enviar uma imagem para completar meus relatórios. Desde já agradeço. Obrigado!

@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 está assim: "C:\Users\Paloma\Desktop\imagensnf\.jpg"

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