Prezados,
Boa tarde!
Estou preparando um dashboard utilizando os formularios, no EXCEL...
Para isso, preciso carregar alguns gráficos da planilha para o formulario. Estou usando o comando abaixo.
Set CurrentChart = Sheets("Graficos").ChartObjects(1).Chart
CurrentChart.Parent.Width = 430
CurrentChart.Parent.Height = 160
nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=nome, filtername:="GIF"
Image8.Picture = LoadPicture(nome)
Está funcionando.... ocorre que, aleatoriamente, a figura nao é salva corretamente... fica aquele x no lugar da imagem.... qd isso ocorre, vem a a seguinte mensagem no formulario...
"Erro em tempo de execução '481'. Figura Inválida"
As vezes eu fecho e reabro o arquivo e a figura é salva sem problemas.....
Alguem já passou por isso? Sabe como evitar um erro no momento em que a figura é salva? O comando está certo, porque ele esta funcionando na maior parte do tempo...
o erro é aleatório.....
Agradeço a atenção e aceito qq sugestão para resolver esse impasse.
Obrigada
Paula
Postado : 01/12/2014 3:22 pm