[Resolvido] Inserir imagem no comentario da Planilha

[milton]

Boa tarde amigos,
Anexei parte de uma planilha para saber se algum mestre consegue me ajudar.

No formulário tem 2 botões, um que inseri imagem no comentário na planilha e outro que exporta dados do listbox para outra planilha.

Os dois botões funcionam, o que preciso é unir a função dos dois botões no botão exportar.
Ficaria da seguinte forma, quando clicar no botão exportar, além de exportar a listbox também inseri as imagens nos comentários da coluna B .

Agradeço desde já.

[milton]

Bom dia! Já consegui...
Adicionei novo código 'INSERIR IMAGEM NO COMMENT detro do For.

For Item = 0 To lst_busca.ListCount - 1

objExcel.ActiveSheet.Cells(Linha, 1) = lst_busca.List(Item, 0) '
objExcel.ActiveSheet.Cells(Linha, 2) = lst_busca.List(Item, 1) '
objExcel.ActiveSheet.Cells(Linha, 3) = lst_busca.List(Item, 2) '

'INSERIR IMAGEM NO COMMENT
FormRelato.TxtNomeFiltro.Text = lst_busca.List(Item, 1)
objExcel.Plan1.Select
objExcel.Plan1.Range("D5").Select
With objExcel.Worksheets("Plan1").Range("B:B")
Set C = .Find(FormRelato.TxtNomeFiltro.Value, LookIn:=xlValues, Lookat:=xlWhole) 'xlWhole, procura a palavra
If Not C Is Nothing Then
C.Activate
On Error Resume Next
C.Offset(0, 0).ClearComments 'Limpar comentarios
C.Offset(0, 0).AddComment 'Adiconar o comentario
C.Offset(0, 0).Comment.Visible = True 'Tornar o comentario visivel
C.Offset(0, 0).Comment.Shape.Select 'Selecionar a borda
objExcel.Selection.ShapeRange.Fill.UserPicture "C:\SISTEMA\Imagem\" & FormRelato.TxtNomeFiltro.Text & ".jpg"
C.Offset(0, 0).Comment.Visible = False
End If
End With

Linha = Linha + 1
Next

Valeu!