Excel VBA中的对象必需的错误

我正在通过阅读本网站的指南在用户表单中创buildLineChart。http://www.j-walk.com/ss/excel/tips/tip66.htm

Dim ChartNum As Integer Dim CurrentChart As String Dim Fname As String Private Sub UpdateChart() Set CurrentChart = Sheets("Charts").ChartObjects(1).Chart CurrentChart.Parent.width = 300 CurrentChart.Parent.height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF" Image1.Picture = LoadPicture(Fname) End Sub 

我也在顶部分配了3个variables。 我有“Sheet1”中图表的数据和“Charts”表中的图表。 但现在我坚持更新图表。 当我点击Commandbutton来更新图表时，它就是这样说的

 Compile Error : Object Required 

错误指向CurrentChart

  Set CurrentChart = Sheets("Charts").ChartObjects(1).Chart 

我希望每次用户单击命令button时更新图表。 任何想法如何解决这个问题？ 非常感谢你的帮助