PictureBox读取EXCEL中的图片问题 - VB6论坛

楼主

已结贴√ 问题点数：20 回复次数：0

PictureBox读取EXCEL中的图片问题

一个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

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

搜索更多相关主题的帖子: color　EXCEL　图片　如何　