Introduction - If you have any usage issues, please Google them yourself
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