vb6怎么调用excel2007生成的图表

vb6如何调用excel2007生成的图表
我想把execl2007里面生成的统计图表放入vb6编写的界面里面，应该怎么处理？

------解决方案--------------------
http://download.****.net/detail/veron_04/1483925
------解决方案--------------------

VB code

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

vb6怎么调用excel2007生成的图表

相关推荐