哪位知道写段插入图片到Excel中的代码呀

很急呀，哪位高手帮帮呀 问题点数：30、回复次数：5Top

1 楼rainstormmaster（暴风雨 v2.0）回复于 2005-11-26 12:11:21 得分 10

你用excel录制一段宏，自己看看代码Top

2 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2005-11-26 12:16:58 得分 10

我的网站上有用VBA控制EXCEL的源码，你可以去看看。  
   
  http://www.j2soft.cn/  
   
  VB资料->查询“EXCEL”；  
   
  ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝  
  免费的学习交流网站，欢迎大家访问！  
  http://www.j2soft.cn/  
  http://j2soft.008.net/Top

3 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-26 12:18:07 得分 10

'引用Microsoft   Excel   X.0   Object   Library  
  Private   Sub   Command1_Click()  
          Dim   xlApp   As   Excel.Application  
          Dim   xlBook   As   Excel.Workbook  
          Dim   xSheet   As   Excel.Worksheet  
          Set   xlApp   =   New   Excel.Application  
          Set   xlBook   =   xlApp.Workbooks.Open("C:\Book1.xls")  
          Set   xSheet   =   xBook.Worksheets(1)          
          xlApp.Visible=True  
          xSheet.Range("E10").Select'设置插入位置E列10行  
          xSheet.Pictures.Insert("C:\Test.jpg").Select'插入图片  
   
          xSheet.Selection.ShapeRange.IncrementLeft   -38.25'可以设置图片位置  
          xSheet.Selection.ShapeRange.IncrementTop   -16.5  
          xSheet.Selection.ShapeRange.ScaleWidth   0.77,   msoFalse,   msoScaleFromTopLeft'设置图片大小  
          xSheet.Selection.ShapeRange.ScaleHeight   0.77,   msoFalse,   msoScaleFromTopLeft  
          xlBook.Close   False  
          xlApp.Quit  
          Set   xlBook   =   Nothing  
          Set   xlApp   =   Nothing  
  end   subTop

4 楼nicoleMLX（妍子）回复于 2005-11-26 15:42:52 得分 0

谢谢各位，  
   
  我在ASP中用了这下面这行，出错说不支援   “Pictures.”此屬性或方法，真不知道是为什么。  
   
  xSheet.Pictures.Insert("C:\Test.jpg").Select'插入图片  
   
   
  Top

5 楼kqh0319（华仔）回复于 2006-01-16 16:55:05 得分 0

先UPTop

相关问题

• excel
• soft
• xsheet
• 插入
• xlapp
• shaperange
• xlbook
• 图片
• j2soft
• pictures

• 帖主：nicoleMLX
• rainstormmaster
• cuizm
• faysky2

• Visual Basic类图书
• Visual Basic类源码下载