Welcome![Sign In][Sign Up]
Location:
Downloads SourceCode Windows Develop File Operate
Title: Project1 Download
 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
 Downloaders recently: [More information of uploader jinhui410124]
 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
    

CodeBus www.codebus.net