loading chart into a picture in a form vbaexcel

[LuisVilarMoreira]

Hello everybody
I need your help with a problem

I have this code

        Sheets("graficos").ChartObjects("g_gts_dp").Activate
        ActiveChart.ChartArea.Select
        ActiveChart.ChartArea.Copy
 
        Set Grafico = Sheets("graficos").ChartObjects("g_gts_dp").Chart
        ArquivoGIF = ThisWorkbook.Path & "\temp.gif"
        Grafico.Export Filename:=ArquivoGIF, FilterName:="GIF"
        Image1.Picture = LoadPicture(ArquivoGIF)

The code works, but only occasionally I get an error

- Run-time error '481':
Invalide picture

When a make "Debug" it will go to

Image1.Picture = LoadPicture(ArquivoGIF)

Thank a lot
Regard

 

[frabulator]

It could come from you trying to overwrite an image file that is currently being referenced in your own document.

Try to null the image reference ( original code found here )

With Image1
  If .Picture Is Nothing Then             ' picture property has been cleared already
     .Picture = LoadPicture(sImgName)
  Else                                    ' a picture is already displayed
     .Picture = LoadPicture(vbNullString) ' clear it now
  End If
End With

or reference another image in the Image1 before saving over the 'temp.gif' to free up the file.