ユーザーフォームでのグラフ表示
今，エクセルのユーザーフォームでグラフを表示させたいのですが，うまくいきません．
ユーザーフォームを作成しているブックとは違うブックのシート1にデータ，このデータを使用してsheet2にグラフを作成しています．このグラフを違うブックで作成しているユーザーフォームで表示させたいのです．
今，組んでいるマクロは以下のようになっています．
Sub point1()
openfilename = "1F-1.xls"
folderpath = "G:\関電営業所\相生営業所\20110928 関電相生営業所収集データ\おんとり\text\Excel\"
Ofilenamepath = folderpath & openfilename
Workbooks(openfilename).Worksheets(2).ChartObjects(1).Chart.Export ThisWorkbook.Path & "\Chart1.gif"
UserForm1.Image1.Picture = LoadPicture(Ofilenamepath & "\Chart1.gif")
UserForm1.Show
End Sub
上から5行目のところでエラーが出てしまいます．
エラーは「オブジェクトが不正です」とでます．
どなたか解決方法を教えてください。
