Error: Invalid Picture in Userform

[AlwaysNeedExcelHelp]

Hello all-

I have a userform which is taking pictures of graphs and displaying it in excel with the below code. Occasionally I get a Run Time Error 481 Invalid Picture on the line below. What's odd is when I go in and change the name of the charts in both the excel and the vba code, everything works smooth but every new excel instance causes this, any idea?





Sub Changechart(chartname As String)

Dim CurrentChart As Chart
Dim FName As String

FName = ThisWorkbook.Path & "\temp.bmp"

Set CurrentChart = ThisWorkbook.Sheets("Charts").ChartObjects(chartname).Chart

CurrentChart.Export Filename:=FName, filtername:="BMP"

frmCharts.imgChart.Picture = LoadPicture(FName)


End Sub

 

[Domenic]

Try activating the chart before exporting it. For example, add the following line prior to exporting the image..

CurrentChart.Parent.activate

Does this help?

 

[AlwaysNeedExcelHelp]

Try activating the chart before exporting it. For example, add the following line prior to exporting the image..

CurrentChart.Parent.activate

Does this help?

It appears to have worked (for now). thanks for the help

 

[Domenic]

You're very welcome, cheers!

 

[Jon Peltier]

Hmmmm, you shouldn't have to activate the chart before exporting it. But sometimes the export takes longer for Windows to process, and the VBA gets ahead of itself.

Rather than activating charts, which leads to flashing of items on screen while the code runs, I often insert a "DoEvents" in between time-consuming steps:

CurrentChart.Export Filename:=FName, filtername:="BMP"

DoEvents

frmCharts.imgChart.Picture = LoadPicture(FName)

When I'm feeling very ambitious, I will wrap the LoadPicture command inside a loop, after an OnError Resume Next, If there's an error, I go back and try the LoadPcture again, otherwise it succeeded, and I exit the loop.