標題: 圖片匯入問題 [打印本頁]

---

作者: g93353    時間: 2012-2-7 14:18     標題: 圖片匯入問題

不好意思 小弟要發問一下

小弟將所需的圖片檔案都放置 D:/TEST 裡面

但隨時會新增圖片  

檔名依序是1-1 ,  1-2 , 1-3.......... 以此類推

想請問一下如何讀取圖片檔案 依序貼上B欄的儲存格 然後  C欄依序顯示出檔名呢

請教一下各位大大>"<

---

作者: register313    時間: 2012-2-7 22:36

回復 1# g93353

先調整好B欄的欄寬列高(照片的大小)

1. Sub PHOTO()
   
2. ActiveSheet.Columns("C") = ""
   
3. Set Sh = ActiveSheet
   
4. With Sh
   
5.     .Pictures.Delete
   
6. End With
   
7. fs = Dir("D:\TEST\*.jpg")
   
8. Do Until fs = ""
   
9.    R = R + 1
   
10.    Cells(R, 3) = fs
    
11.    Cells(R, 2).Select
    
12.    ActiveSheet.Pictures.Insert("D:\TEST\" & Cells(R, 3)).Select
    
13.    With Selection
    
14.        .Top = ActiveSheet.Cells(R, 2).Top + 1
    
15.        .Left = ActiveSheet.Cells(R, 2).Left + 1
    
16.        .Width = ActiveSheet.Cells(R, 2).Width - 1
    
17.        .Height = ActiveSheet.Cells(R, 2).Height - 1
    
18.    End With
    
19.    fs = Dir
    
20. Loop
    
21. End Sub

複製代碼

---

作者: g93353    時間: 2012-2-14 10:53

感謝 register313 的回覆!!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)