Este fórum está sendo desativado

[miltonleandro]

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á.

[osvaldomp]

opção1 - executa primeiro o código BtnComentario_Click e depois executa o código BtnExportarXls_Click.
No código BtnExportarXls_Click acrescente a linha em vermelho, conforme abaixo.
Dim j As Integer
BtnComentario_Click
Set objExcel = New Excel.Application

#
opção2 - ordem de execução invertida em relação à ordem de execução da opção1
No código BtnExportarXls_Click acrescente a linha em vermelho, conforme abaixo.
objExcel.Width = Int(0.85 * ActiveWindow.Width) 'Largura
BtnComentario_Click
End Sub

[miltonleandro]

Bom dia Osvaldo! Obrigado pelo seu retorno.
Acredito que você não entendeu.

Na sua resposta os comentários são inseridos na "Plan1 (oficiais)" e o que preciso é que sejam inseridos na nova Planilha que é exportada, "Plan1 (Plan1)" .

Se alguém puder ajudar.

[miltonleandro]

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!