怎么把指定路径下的jpg插入到excel单元格??

Question

能给出关键代码或小的sample吗？

Answer 1

先引用上Excel.
   
   Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Worksheets.Add
   
   xlApp.Visible = True
 
   xlApp.ActiveSheet.Pictures.Insert("C:\WINDOWS\BACKGRND.GIF").Select
   
   'xlBook.Close   
   'xlApp.Quit

Answer 2

Excel能把图片插入到单元格吗？小弟水平有限还真没有遇到过。要是楼主有这样的Excel文件请email给我一份，我一定给你加分。回头你的问题我也会解决的。

Answer 3

在'xlBook.Close这句前加上以下两句。   xlApp.Selection.ShapeRange.IncrementLeft 200
   xlApp.Selection.ShapeRange.IncrementTop 200我也就知道这些拉（这些还是录制宏后分析得到的），你也可以自己在Excel中录制宏，然后分析那些代码。