Simple chart error 438

[Viking31]

Hello,

I know my error must be easy to spot, but I've tried everything I know. I literally only have a command button and an Image in the Form and a simple graph in Excel. I want my "1 Gráfico" chart to appear in Image1 when I press the button (I'm spanish, that's why it's called like that ), but I get error 438 in the chartObject line, please help!

Private Sub CommandButton1_Click()
Dim fname As String
Dim cchart As Chart
Set cchart = Worksheets("Hoja1").ChartObject("1 Gráfico").Chart
fname = "G:/temp.gif"
cchart.Export Filename = fname, Filtername:="gif"


Image1.Picture = LoadPicture(fname)
End Sub

Thank youuu

 

[Kenneth Hobson]

Welcome to the forum!

Use ChartObjects, e.g.:

Private Sub CommandButton1_Click()  Dim fname As String
  Dim cchart As Chart
  
  'Set cchart = Worksheets("Hoja1").ChartObject("1 Gráfico").Chart
  Set cchart = Worksheets("Sheet1").ChartObject[COLOR="#FF0000"]s[/COLOR]("Chart 1").Chart
  
  'fname = "G:/temp.gif"
  fname = "c:\temp\temp.gif"
  cchart.Export Filename:=fname, Filtername:="gif"
  
  Image1.Picture = LoadPicture(fname)
End Sub

 

[Viking31]

Thanks for the welcome and many thanks for the solution. Can't believe it was that simple...!!