Boa noite amigos desculpem se eu cometer algum erro ao entrar aqui no fórun
Tenho uma planilha e dentro dela tenho uma imagem
Consegui um codigo para exportar essa planilha
O codigo funciona bem mas a imagem não aparece na planilha
Se alguem puder me ajudar ficarei grato segue o codigo abaixo

Sub NovaPastaFichaOcorrência()
Dim CurrentSheet As Worksheet

Application.ScreenUpdating = False

'Nome na Planilha Ativa em B2
nomeB2 = CStr(ActiveSheet.Range("B2").Value)

Set CurrentSheet = ActiveSheet

On Error Resume Next

'copia todas as células da planilha ativa
CurrentSheet.Cells.Copy

'Cria a Nova PASTA (ARQUIVO)
Set Wkb = Workbooks.Add

'cola somente os valores na planilha Ativa da nova Pasta,
'sem formulas e mantenndo a formatação
With ActiveSheet.Range("A1")
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

.PasteSpecial Paste:=xlFormats

End With

Application.CutCopyMode = False

'Define os Novos Nomes - Planilha(ABA) e Pasta(Arquivo)
novoNome = nomeB2

'Renomeia a planilha nova com
'o Nome que estava em B2
With ActiveSheet
.Name = novoNome
.Range("A1").Select
End With

Range("A1").Select

'Enibe a mensagem se a pasta já existir
'Com essa instrução a Pasta será substiutida sem questionamento
Application.DisplayAlerts = False

'Salva a Nova Pasta no Diretorio abaixo com o mesmo Nome
'Alterem o mesmo conforme o endereço que querem
Wkb.SaveAs Filename:="E:REGISTROOCORRÊNCIA" & novoNome & ".xls"
End Sub