Description: 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
To Search:
- [Coordinate3] - VC++ MFC drawing coordinate system, seri
- [WriteTxt] - The Internet to find a lot are not so si
File list (Check if you may need any files):
Form1.frm
Project1.vbp
MSSCCPRJ.SCC
Project1.vbw