Erro tempo de execução 1004 - VBA Excel

[diegoamaral91]

Olá pessoal, boa tarde!

Tenho uma macro que atualiza um relatório de hora em hora e envia um e-mail no fim do Script para alguns usuários com o status naquele momento.

Porém, toda vez que a macro está rodando, sempre quando chega no momento de criar uma imagem e colar, ele da um erro em tempo de execução 1004.
Mas, quando abre o depurador, se eu dou um play pra seguir a macro, ele segue normalmente até o fim.
E como roda de 1 em 1 hora, tenho que sempre estar olhando pra quando der o erro, clicar em depurar e dar play para seguir com a macro.

Deixei uma parte em negrito no Script, que foi uma tentativa de resolver o problema, aguardando 30 segundos para colar a imagem. Mas não adiantou, o erro sempre ocorre.

Segue abaixo o Script da macro e onde está sublinhado é quando ocorre o erro:

Private Sub createJpg(Namesheet As String, nameRange As String, nameFile As String)
    ThisWorkbook.Activate
    Worksheets(Namesheet).Activate
    
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 30
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime
    
    Set Plage = ThisWorkbook.Worksheets(Namesheet).Range(nameRange)
    ThisWorkbook.Worksheets(Namesheet).Range(nameRange).CopyPicture ----- Nessa parte é aonde da o erro.
    With ThisWorkbook.Worksheets(Namesheet).ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height)
        .Activate
        .Visible = True
        .Chart.Paste
        With .Chart.Shapes(1)
            .Width = Plage.Width
            .Height = Plage.Height
        End With
        .Chart.Export Environ$("temp") & "\" & nameFile & ".jpg", "JPG"
        .Visible = False
    End With
    ActiveSheet.Shapes(Worksheets(Namesheet).ChartObjects(Worksheets(Namesheet).ChartObjects.Count).Name).Line.Visible = msoFalse
    Worksheets(Namesheet).ChartObjects(Worksheets(Namesheet).ChartObjects.Count).Delete
    Set Plage = Nothing
End Sub

Caso precisem de mais alguma informação para poder me ajudar, estou à disposição.

Valeu!

[Alyson Ronnan Martins]

Boa noite Diego.

Já passei por esse problema antes e resolvi apenas colocando o On Error Resume Next.
Tenta ai e dá um retorno se funciona ok?

[diegoamaral91]

Alyson, bom dia!

Desculpa, vi sua resposta só agora.
Poderia dizer em qual parte do código eu incluo On Error Resume Next?

Seria antes ou depois da linha onde ocorre o erro?

Valeu pela ajuda!

[Alyson Ronnan Martins]

No início abaixo do sub. 

[diegoamaral91]

Valeu Alyson, deu certo.

Muito obrigado pela ajuda!

Sabe como faço para encerrar esse tópico?

É meu primeiro, e não estou encontrando nenhuma opção para dar como resolvido.

Sabe como faço para encerrar esse tópico?

É meu primeiro, e não estou encontrando nenhuma opção para dar como resolvido.