mortgageman
Well-known Member
- Joined
- Jun 30, 2005
- Messages
- 2,015
I downloaded the new excel beta, and now a charting app that I did for my daughter no longer works. No changes have been made since it last worked.
Here is the line that debug says is the problem:
CurrentChart.Export Filename:=Fname, Filtername:="GIF"
This is the section that the above line is in:
'Write graph to a file and then read it into the UF image
Set CurrentChart = Sheets("Sheet1").ChartObjects(Sheets("Sheet1").ChartObjects.count).Chart
Fname = ThisWorkbook.Path & "\temp.gif"
CurrentChart.Export Filename:=Fname, Filtername:="GIF"
Image1.Visible = True
Image1.Picture = LoadPicture(Fname)
End Sub
HELP!!!!
Gene, "The Mortgage Man", Klein
Here is the line that debug says is the problem:
CurrentChart.Export Filename:=Fname, Filtername:="GIF"
This is the section that the above line is in:
'Write graph to a file and then read it into the UF image
Set CurrentChart = Sheets("Sheet1").ChartObjects(Sheets("Sheet1").ChartObjects.count).Chart
Fname = ThisWorkbook.Path & "\temp.gif"
CurrentChart.Export Filename:=Fname, Filtername:="GIF"
Image1.Visible = True
Image1.Picture = LoadPicture(Fname)
End Sub
HELP!!!!
Gene, "The Mortgage Man", Klein