Run time error 481 - Invalid Picture

[Guinaba]

Hello experts,

I am using a user form to upload two charts, having a option button to switch between them, however I am not able to upload the second chart on the user form, keep getting the - Run time error 481 - Invalid Picture

The code works fine for the first pic, saving it in the correct directory (below), but the second chart the file is saved but with 0 bytes.

I have enough space in my temp folder so space is not an issue.

Sub LoadForm()
    FormCharts.Show
End Sub

Sub ChangeChart (ChartName As String)
    Dim CurrentChart As Chart
    Dim FName As String
  
    FName = ThisWorkbook.Path & "\temp.gif"  
    Set CurrentChart = ThisWorkbook.Sheets("Charts").ChartObjects(ChartName).Chart  
    CurrentChart.Export Filename:=FName, filtername:="GIF" 
    FormCharts.ImgChart.Picture = LoadPicture(FName)
End Sub

Form code:

Private Sub Close_Click()

Unload Me

End Sub


Private Sub Opt2WksCov_Click()

Call ChangeChart("Chart2wks")

End Sub


Private Sub Opt3WksCov_Click()

Call ChangeChart("Chart3wks")

End Sub


Private Sub UserForm_Initialize()

    Opt3WksCov.Value = True

End Sub

 

[ismii]

Maybe because the file names are the same? Try adding a variable like a timestamp to the export and see if that works?

 

[Guinaba]

Hi @ismii,

Thanks for the suggestion, I have added a timestamp variable but the issue is still happening.

Sub ChangeChart(ChartName As String)

Dim CurrentChart As Chart
Dim FName As String
Dim dt As String

dt = Format(CStr(Now), "yyy_mm_dd_hh_mm")
FName = ThisWorkbook.Path & "\" & dt & "temp.gif"

'On Error Resume Next
'On Error GoTo 0

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

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

FormCharts.ImgChart.Picture = LoadPicture(FName)


End Sub

 

[Guinaba]

@ismii,

I am activating the chart before exporting and it is working ok now.

Sub ChangeChart(ChartName As String)

Dim CurrentChart As Chart
Dim FName As String
Dim dt As String

dt = Format(CStr(Now), "yyy_mm_dd_hh_mm")
FName = ThisWorkbook.Path & "\" & dt & "_temp.gif"

'On Error Resume Next
'On Error GoTo 0

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

ThisWorkbook.Sheets("Charts").ChartObjects(ChartName).Activate

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

FormCharts.ImgChart.Picture = LoadPicture(FName)

 

[ismii]

Glad to hear!

Unknown on my end why that would work, but I've seen some funky stuff with charts, ribbon, and other 'things' that don't deal strictly with the sheet.

 

[sureshtrb]

Thanks and saved me lot of time

@ismii,

I am activating the chart before exporting and it is working ok now.

Sub ChangeChart(ChartName As String)

Dim CurrentChart As Chart
Dim FName As String
Dim dt As String

dt = Format(CStr(Now), "yyy_mm_dd_hh_mm")
FName = ThisWorkbook.Path & "\" & dt & "_temp.gif"

'On Error Resume Next
'On Error GoTo 0

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

ThisWorkbook.Sheets("Charts").ChartObjects(ChartName).Activate

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

FormCharts.ImgChart.Picture = LoadPicture(FName)

s