Problem with displaying graph in userform

Question

I am trying to display an existing graph (Name: Chart 3) from Sheet3 to userform.

I used the below code, and it pops up error with debugging

Private Sub CommandButton1_Click()
Dim cchart As Chart
Dim fname As String


Set cchart = Sheets("Sheet3").ChartObjects("Chart 3").Chart
fname = "C:\CBS  Academic\Integrated Strategy Project\Final 
Paper\Temp\temp.gif"
cchart.Export Filename:=fname, filtername:="gif"
Image1.Picture = LoadPicture(fname)
End sub

check for correct sheet name chart name and fname (particularly fname in the code produced it is broken into 2 lines with out necessary " & _ ), i think it will work OK. Tried code with modified sheet and chart name and fname. found working without any error . — Ahmed AU
– Ahmed AU, Commented Jul 21, 2019 at 0:30
The compiler stops at the fourth line (Set cchart = Sheets("Sheet3").ChartObjects("Chart 3").Chart) — Minesh Babu
– Minesh Babu, Commented Jul 21, 2019 at 7:17

Mikku · Accepted Answer · 2019-07-21 01:27:39Z

1

Try this: (Tested)

Private Sub CommandButton1_Click()

Dim cchart As Chart
Dim fname As String
Set cchart = Sheets("Sheet3").ChartObjects("Chart 3").Chart

fname = "C:\CBS  Academic\Integrated Strategy Project\FinalPaper\Temp\temp.gif" 'check the address again

cchart.Export Filename:=fname, filtername:="gif"
Image1.Picture = LoadPicture(fname)

End sub

answered Jul 21, 2019 at 1:27

Mikku

6,7043 gold badges19 silver badges39 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Problem with displaying graph in userform

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related