关于VB读取Excel图表到图片框的问题

Question

我想完成下面的功能，但运行时会出现错误提示“未找到方法或数据成员”请问哪里有错误，谢谢！
     首先在工程中引用Excel对象。比如D盘下有一名为graph的Excel文件。里面有一个直方图。现在新建一个窗体，窗体上放置一个PictureBox，一个按钮。单击按钮，将读取D:/graph.xls中的直方图到图片框。源码如下：
Option Explicit
Dim mXlsApp As Excel.Application '应用
Dim mXlsBook  As Excel.Workbook    '工作薄
Dim mXlsSheet  As Excel.Worksheet   '工作表Private Sub Command1_Click()
    Set mXlsApp = CreateObject("Excel.Application")
    Set mXlsBook = mXlsApp.Workbooks.Open("D:\graph.xls")
    Set mXlsSheet = mXlsBook.Worksheets(1)
' 以下代码读取Excel中图表到图片框
    mXlsSheet.ChartsObject(1).Chart.CopyPicture   '读取图表到剪贴板
    Picture1.Picture = Clipboard.GetData    '粘贴数据到图片框
    Clipboard.Clear          '清除剪贴板数据
    mXlsBook.Close (False)
    mXlsApp.Quit
    Set mXlsApp = Nothing
    Set mXlsBook = Nothing
    Set mXlsSheet = Nothing
End Sub

Answer 1

是哪一行出错？
（既然用了前期绑定，就不要用CreateObject，改成：Set mXlsApp = New xcel.Application）

Answer 2

mXlsSheet.ChartsObject(1).Chart.CopyPicture '读取图表到剪贴板
应该是ChartObjects'你少个S

Answer 3

Option Explicit
Dim mXlsApp As Excel.Application '应用
Dim mXlsBook As Excel.Workbook '工作薄
Dim mXlsSheet As Excel.Worksheet '工作表Private Sub Command1_Click()
  Set mXlsApp = New Excel.Application
  Set mXlsBook = mXlsApp.Workbooks.Open("D:\graph.xls")
  Set mXlsSheet = mXlsBook.Worksheets(1)
' 以下代码读取Excel中图表到图片框
  mXlsSheet.ChartObjects(1).Chart.CopyPicture  '读取图表到剪贴板
  Picture1.Picture = Clipboard.GetData '粘贴数据到图片框
  Clipboard.Clear '清除剪贴板数据
  mXlsBook.Close
  mXlsApp.Quit
  Set mXlsSheet = Nothing
  Set mXlsBook = Nothing
  Set mXlsApp = Nothing
End Sub

Answer 4

非常感谢chenjl1031！
非常感谢！！！！！