vb 读取EXCEL中的趋势图比如D盘下有一名为graph的Excel文件。里面有一个直方图。现在新建一个窗体，窗体上放置一个PictureBox，一个按钮。单击按钮，将读取D:/graph.xls中的直方图到图片框-Private Sub Command1_Click()

Dim mXlsApp As Excel.Application　应用

Dim mXlsBook As Excel.Workbook　工作薄

Dim mXlsSheet As Excel.Worksheet　工作表



　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