Run Time error '481' Invalid Picture

Boa noite a todos,

Tenho um arquivo com 16 graficos em uma sheet, tenho que mostrar os graficos atravez de um userform, tem momento que o arquivo funciona mas tem momento que da o seguinte erro "Run Time error '481' Invalid Picture" na hora que o cara escolhe o grafico a ser visto no form

ja tentei exportar a imagem como gif ou bmp e da o mesmo erro, tb ja tentei exportar a imagem
na pasta do C:\Windows\Temp e o erro persiste

estou usando código abaixo, ja tentei de tudo se alguem puder dar uma luz obrigado

Private Sub ComboBox1_Change()
If ComboBox1.Text = "PLOT01" Then

   Image1.Picture = LoadPicture("")
   Set CurrentChart = Sheets("CHART").ChartObjects(1).Chart
   CurrentChart.Parent.Width = 438
   CurrentChart.Parent.Height = 222
   'converter objeto de gráfico em imagem gif
   nome = ThisWorkbook.Path & Application.PathSeparator & "temp.jpg"
   CurrentChart.Export Filename:=nome, filtername:="JPG"
   ' mostrar grafico como imagem no objeto image1
   Image1.Picture = LoadPicture(nome)

end if

Bom dia!!

Ao menos para mim tentar te ajudar, seria melhor ter seu arquivo modelo.

No trabalho eu não consigo acessar sites de hospedagem de arquivo...

Junte se a nós em:
http://gurudoexcel.com/forum/index.php
Após seu cadastro abra um post em Macros e VBA, lá anexe seu arquivo modelo!

Att

Boa tarde Alexandre,

acabei encontrando uma solução, muito obrigado, segue abaixo o código

Solução:

é so da um loop da sheet onde esta os gráficos e gerar todas as imagens de uma vez, em seguida eu carrego só a imagem que eu necessito no image1.Picture = LoadPicture()

For Each cht In Sheets("CHART").ChartObjects
       cht.Activate
       cht.Chart.Export "C:\Users\erosamp\SON_Report_Generator_INTERFACE\grp_" & i & ".jpg"
       i = i + 1
Next

quando eu usava o Código anterior não sei porque mas em algum momento a imagem é criada com 0kb, assim acontece o erro

no meu caso tenho 22 graficos que o cara escolhe qual quer ver no grafico, acredito que se tenha um ou duas imagens o codigo anterior não dê problema

Bom dia!

Eu fico feliz que resolveu, obrigado por retornar.

Att