My picture does not want to change for no reason...

Ok, my problem is this:

I have an image on a userform called Image1 that does not want to change it's image1.picture property.

Attached is the code.

hat it does is this:

When I click on the picture when the form is loaded, it goes to excel and saves a chart into Mychart.jpg in C:\ and then changes the old image1.picture property by the new one but this is here it does not want to work....

Could you help?Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Private Sub Image1_Click()
    Windows("Job Management.xls").Activate
    
    With Sheets("VBA")
    
    Dim mychart As Chart
      Set mychart = ActiveSheet.ChartObjects(1).Chart
      mychart.Export Filename:="c:\Mychart.jpg", FilterName:="jpg"
         
    End With
    
    Image1.Picture = LoadPicture("c:\Mychart.jpg")
    
    
End Sub