Olá, estou aprendendo a usar VBA faz pouco tempo.
Tenho usado uma macro para consolidar diversas planilhas de diversos arquivos de um diretório em uma única pasta de trabalho. A macro funciona bem, mas para as planilhas que contém imagem, a imagem não aparece na planilha copiada para a pasta de trabalho única, o que aparece é a caixa da imagem com a seguinte mensagem de erro: "A parte de imagem com identificação de relação rId2 não foi encontrada no arquivo".
Se eu crio uma cópia da planilha original movendo para a minha pasta de trabalho única a imagem aparece normalmente, não sei por que usando a macro não funciona. Estou usando MS 2010.

Segue a macro que estou usando:

Sub MergePlans()
Dim CurFile As String, DirLoc As String
Dim DestWB As Workbook
Dim ws As Object

DirLoc = ThisWorkbook.Path & "Merge" 
CurFile = Dir(DirLoc & "*.xlsx")

Application.ScreenUpdating = False
Application.EnableEvents = False

Set DestWB = Workbooks.Add(xlWorksheet)

Do While CurFile <> vbNullString
    Dim OrigWB As Workbook
    Set OrigWB = Workbooks.Open(Filename:=DirLoc & CurFile, ReadOnly:=True)

    For Each ws In OrigWB.Sheets
        ws.Select
        ws.Copy After:=DestWB.Sheets(DestWB.Sheets.Count)
    Next

    OrigWB.Close Savechanges:=False
    CurFile = Dir
Loop

Application.DisplayAlerts = False
DestWB.Sheets(1).Delete
Application.DisplayAlerts = True

Application.ScreenUpdating = True
Application.EnableEvents = True

Set DestWB = Nothing

End Sub

Alguém sabe o que está errado e como poderia resolver isso?

Obrigada!