Notifications
Clear all

Gráficos em formularios

2 Posts
2 Usuários
0 Reactions
1,445 Visualizações
(@paulapma)
Posts: 0
New Member
Topic starter
 

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
(@themrl16)
Posts: 60
Trusted Member
 

Bom dia Paula!

A princípio não sei o motivo. Talvez colocando um ponto de parada no trecho Image8.Picture = LoadPicture(nome) e debugando sua Sub vc consiga pegar o erro (nome de arquivo inválido, caracteres inválidos), ou o formato da imagem GIF não está sendo aceito (dei uma pesquisada rápida sobre esse erro, e em alguns sites os usuários dizem que esse erro é gerado quando a extensão é inválida):
http://support.microsoft.com/kb/175918
http://www.vbforums.com/showthread.php? ... id-picture

O ideal seria você nos disponibilizar uma cópia do arquivo, para facilitar o entendimento do erro. É possível vc nos disponibilizar?

Obrigado.

 
Postado : 02/12/2014 5:45 am