Invalid image error :481

Dear friends,
Please be kindly requested to help me get over a problem in displaying charts (7 charts)as images in my userform .The problem is when navigating from image to image by using next and previous buttons I get this error "Invalid image 481" error and when debugging the cursor comes over this line:

Code:

---

Image1.Picture = LoadPicture(Fname)"

---

and highlited with yellow colour.

My function is as follows:

Code:

---

Private Sub SaveChart()    Dim MyChart As Chart
    Dim Fname As String


    Set MyChart = Sheets("Charts").ChartObjects(ChartNum).Chart
    'MyChart.Parent.Width = 400
    'MyChart.Parent.Height = 350
   
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    MyChart.Export Filename:=Fname, FilterName:="GIF"
   


'  Show the chart
    Image1.Picture = LoadPicture(Fname)
 

End Sub

---

Could someone tell me where is the error I have done?

.
Does changing this line of code work :

Change existing to : Fname = ThisWorkbook.Path & "\temp.gif"

Quote:

---

Originally Posted by Logit

.
Does changing this line of code work :

Change existing to : Fname = ThisWorkbook.Path & "\temp.gif"

---

I tested it but it gives the same error.thank you though

Following... sharing solution would be appreciated

I still do not have any solution for this problem.It is a non solved thread in many forums.

Quote:

---

Originally Posted by djemy1975

I still do not have any solution for this problem.It is a non solved thread in many forums.

---

Does this mean that you're asked the same question in other forums and forgot to include that information and the other links here?

This seems to save the chart and put on userform

Attachment 23132

Code:

---

Option Explicit

Sub SaveChart()
    Dim MyChart As Chart
    Dim Fname As String

    Set MyChart = Sheets("Chart1")
    'MyChart.Parent.Width = 400
    'MyChart.Parent.Height = 350
   
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    MyChart.Export Filename:=Fname, FilterName:="GIF"
   

'  Show the chart
    Load UserForm1
    UserForm1.Image1.Picture = LoadPicture(Fname)
    UserForm1.Show
End Sub

---

Quote:

---

Originally Posted by Paul_Hossler

Does this mean that you're asked the same question in other forums and forgot to include that information and the other links here?

---

I have already asked the same question in other forums and got nothing as answer.Could someone try to figure out the source of this problem.

Quote:

---

Originally Posted by Paul_Hossler

This seems to save the chart and put on userform

Attachment 23132

Code:

---

Option Explicit

Sub SaveChart()
    Dim MyChart As Chart
    Dim Fname As String

    Set MyChart = Sheets("Chart1")
    'MyChart.Parent.Width = 400
    'MyChart.Parent.Height = 350
   
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    MyChart.Export Filename:=Fname, FilterName:="GIF"
   

'  Show the chart
    Load UserForm1
    UserForm1.Image1.Picture = LoadPicture(Fname)
    UserForm1.Show
End Sub

---

---

Actually I am at work.I will give it a try when I will be at home and give you feedback.Thanks for your quick support.

To better understand my problem ,I decided to attach a sample of my workbook so that you can help me.Please do not refresh charts because I have already deleted tables.Use only next previous buttons to get the error.

It works for me with either of these

Code:

---

Me.Image1.Picture = LoadPicture(Fname)

---

or

Code:

---

Userform1.Image1.Picture = LoadPicture(Fname)

---

Attachment 23159

Quote:

---

Originally Posted by Paul_Hossler

It works for me with either of these

Code:

---

Me.Image1.Picture = LoadPicture(Fname)

---

or

Code:

---

Userform1.Image1.Picture = LoadPicture(Fname)

---

Attachment 23159

---

It still gives the same error

Attachment 23162

https://www.mrexcel.com/forum/excel-questions/808744-exporting-chart-via-vba-sometimes-gives-empty-file.html

Post #7 talks about using .Activate

This seems reliable

Code:

---

Option Explicit


Private Sub Workbook_Open()
    Dim FName As String
   
    FName = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    On Error Resume Next
    Kill FName
    On Error GoTo 0
    UserForm1.Show
End Sub

---

Code:

---

  Private Sub UpdateChart()
  Dim FName As String
       
    Set currentchart = Sheets("Charts").ChartObjects(ChartNum).Chart
    currentchart.Parent.Activate
   
    'currentchart.Parent.Width = 300
    'currentchart.Parent.Height = 150
   
'  Save chart as GIF
    FName = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    On Error Resume Next
    Kill FName
    On Error GoTo 0
   
    currentchart.Export Filename:=FName, FilterName:="GIF"
'  Show the chart
    Image1.Picture = LoadPicture(FName)
    Kill FName
End Sub

---

Quote:

---

Originally Posted by Paul_Hossler

https://www.mrexcel.com/forum/excel-questions/808744-exporting-chart-via-vba-sometimes-gives-empty-file.html

Post #7 talks about using .Activate

This seems reliable

Code:

---

Option Explicit


Private Sub Workbook_Open()
    Dim FName As String
   
    FName = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    On Error Resume Next
    Kill FName
    On Error GoTo 0
    UserForm1.Show
End Sub

---

Code:

---

  Private Sub UpdateChart()
  Dim FName As String
       
    Set currentchart = Sheets("Charts").ChartObjects(ChartNum).Chart
    currentchart.Parent.Activate
   
    'currentchart.Parent.Width = 300
    'currentchart.Parent.Height = 150
   
'  Save chart as GIF
    FName = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    On Error Resume Next
    Kill FName
    On Error GoTo 0
   
    currentchart.Export Filename:=FName, FilterName:="GIF"
'  Show the chart
    Image1.Picture = LoadPicture(FName)
    Kill FName
End Sub

---

---

Thank you so much for the importance you have shown to my problem.It is working now like a charm .I am very grateful for this forum and especially Mr Paul .I will mark this thread "Solved" .Thanks again