Este fórum está sendo desativado

[amaralfilho]

Bom dia!
Senhores, tenho uma macro em um arquivo de excel aqui no trabalho que salva uma sheet em uma pasta específica de um SharePoint. Essa macro "print" uma sheet e salva um arquivo ".png" na mesma pasta do arquivo excel. Porém há 5 dias que está apresentando esse erro na linha EXPORT e eu não consegui identificar o problema.

Mensagem de erro quando rodo a macro:
Run-time error 'Erro -2146697210 (800c00006)':
Method 'Export' of object 'Chart' failed

segue o código:
OBS: destaquei em vermelho a linha onde o erro está acontecendo.

Option Explicit


Sub salvar_imagem()
Dim WS As Worksheet, Inpt As Worksheet 'declarando variável da sheet
Dim rgExp As Range 'declarando variável do range
Dim CH As ChartObject 'determinando a seleção do "gráfico"
Dim pictitle As String 'título do arquivo a ser gerado
Dim NomPastTrab As String 'Seleciona a célula onde o nome do arquivo a ser gerado encontra-se



Set Inpt = Sheets("INFORMES") 'determina a sheet onde a macro vai rodar
Set rgExp = Inpt.Range("A1:I59") 'determina o intervalo a ser capturado
pictitle = Worksheets("INFORMES").Range("Z2") 'monta o título do arquivo
NomPastTrab = Range("Z2").Value
For Each WS In ThisWorkbook.Sheets
If WS.Name = "INFORMES" Then
WS.Range("A1:I59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set CH = WS.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, Width:=rgExp.Width, Height:=rgExp.Height)
CH.Chart.ChartArea.Select
CH.Chart.Paste
CH.Chart.Export ThisWorkbook.Path & "\" & NomPastTrab & ".png"
CH.Delete
End If
Next WS
MsgBox "Relatório salvo com sucesso!"
End Sub

[CursoDeExcelGratis]

Não sabia que dava pra fazer isso com o excel
fiz uma planilha com alguns dados, e deu certo aqui, então talvez seja algum problema de permissão ou alguma outra coisa, acho que sem a sua planilha fica dificil de descubrir.
Tentou fazer uma nova planilha ? ou ir tirando os dados até deixar de dar o erro ?

Em anexo estou enviando a planilha que fiz com seu código.