請問如何用 VB 把圖片輸出到 Excel 文檔中(急﹐參與有分)

請問如何用   VB   把圖片輸出到   Excel   文檔中(急﹐參與有分)  
  问题点数：40、回复次数：7Top

1 楼Hengli（學習.NET）回复于 2003-11-01 14:41:26 得分 0

怎么???  
  難道沒人會嗎?Top

2 楼zjcxc（邹建）回复于 2003-11-01 15:26:59 得分 35

 
   
  Sub   test()  
  Dim   iExl   As   object  
  set   iExl=createobject("Excel.Application")  
   
  iExl.Workbooks.Add  
  iExl.ActiveSheet.Pictures.Insert   "c:\test.BMP"  
  iExl.Visible   =   True  
  iExl.Quit  
  set   iExl=Nothing  
  End   SubTop

3 楼Hengli（學習.NET）回复于 2003-11-03 13:53:09 得分 0

謝謝﹗﹗﹗  
  能不能把這個圖片輸出到Exel中的一個特定位置Top

4 楼zjcxc（邹建）回复于 2003-11-03 14:27:32 得分 0

Sub   test()  
          Dim   iExl   As   Object  
          Set   iExl   =   CreateObject("Excel.Application")  
           
          iExl.Workbooks.Add  
          iExl.ActiveSheet.Pictures.Insert("c:\test.bmp").Select  
          iExl.Selection.ShapeRange.IncrementLeft   144.75     '左边起始位置  
          iExl.Selection.ShapeRange.IncrementTop   173.5         '上边起始位置  
           
          iExl.Visible   =   True  
          iExl.Quit  
          Set   iExl   =   Nothing  
  End   Sub  
  Top

5 楼Hengli（學習.NET）回复于 2003-11-03 14:58:26 得分 0

能不能在Excel中控制圖片的大小﹐使不同大小的圖片﹐顯示在一個固定的區域內Top

6 楼WangPengAn（流口水的家伙）回复于 2003-11-03 15:11:47 得分 5

參與有分﹐接分嘍!!!!  
  哈哈...........Top

7 楼Hengli（學習.NET）回复于 2003-11-03 15:45:39 得分 0

iExl.Selection.ShapeRange.ScaleHeight   0.72   '高度  
          iExl.Selection.ShapeRange.ScaleWidth   0.66   '宽度  
  Top

相关问题

• excel
• iexl
• shaperange
• 圖片
• 參與有分
• 位置
• sub
• test
• selection

• 帖主：Hengli
• zjcxc
• WangPengAn

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