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

 

[RoryA]

This will return a Message Box

Yup, but you can't copy and paste the value here that way...

 

[Joe4]

Yup, but you can't copy and paste the value here that way...

True...

 

[Cozzy123]

righto, its going to the wrong location, its added the wrong path, not sure why? could it be that its linked to something else?

 

[Cozzy123]

Righto, I'm sorry to have said, it is the correct path. Its taken it to my sharepoint path.

 

[RoryA]

It's using the path of the workbook with the code in. If that's in onedrive, you might be getting a d.docs.live.net/... type path?

 

[Cozzy123]

It's using the path of the workbook with the code in. If that's in onedrive, you might be getting a d.docs.live.net/... type path?

Righto, I'm sorry to have said, it is the correct path. Its taken it to my Sharepoint path.

 

[rlv01]

Righto, I'm sorry to have said, it is the correct path. Its taken it to my Sharepoint path.

Can you post your Sharepoint path here so we can assess?
(note if your Sharepoint path contains anything sensitive, like company name that you don't want to post, just replace those letters with something made up. The important point is to assess overall format).