Loading an image error

[Cozzy123]

Hi all,

I'm probably doing something wrong, this code worked before but I'm getting a debug?

Any ideas?

Sub DrawChart()
Dim CurrentFileName As String
CurrentFileName = ThisWorkbook.Path & "\current.gif"

Dim CurrentChart As Chart
Set CurrentChart = ThisWorkbook.Sheets("Charts").ChartObjects("Compliance").Chart
CurrentChart.Export Filename:=CurrentFileName, filtername:="GIF"

Dashboard.Image1.Picture = LoadPicture(CurrentFileName)
End Sub

 

[rlv01]

For any error (compile error or runtime error) it is important to report 3 things:
1. Error number
2. Error message
3. Line of code that generates the error. (typically, you would press the 'Debug' button on the error dialog to find the line)

 

[Cozzy123]

Ok sorry, of course.

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

Run time error '-2145597210 (800c0006)
Method 'Export' of object '_Chart' failed

And its the line in Orange which is highlighted during debug

 

[Cozzy123]

Hi all

I've tried reworking it, but its still not working and I really don't understand why. It works on another laptop fine........................

Any guru's out there that can help with this?

Many thanks

 

[RoryA]

Where is the workbook with the code saved?

 

[Cozzy123]

A folder within my one drive

 

[RoryA]

That could be the problem. Check what value FName is returning when the code errors.

 

[Cozzy123]

silly question, how do I check what value FName returns?

 

[RoryA]

Add:

Debug.Print FName

before the Export line. That will output the result to the Immediate WIndow in the VB Editor (Ctrl+G if that's not already visible).

 

[Joe4]

Another option is to put this line of code just before the line that is returning the error:

MsgBox FName

This will return a Message Box with the value of that variable at that point of the code.