一个EXCEL文件AAA.xls，里面插入了一张图片A.jpg，如何在PictureBox中读取出这张图片？
现已写有一段程序，但点击按钮后报错


程序如下：

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("c:\AAA.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

敬请帮看看哪里错了并如何修改？

你这个情况，没有遇到过，而且一般情况都是直接用mschart，用excel的比较少。
看报错，应该是类对象不匹配的问题。我个人觉得可能是这样的情况， 你的代码是03版本的，但是你现在机器上是07。 两者类对象的结构有一定的变化，虽然大部分的代码是可以直接移过来用的。
可以去微软官网看看，或者给mXlsSheet添加监控看看就知道了