圖片匯入問題

g93353

不好意思 小弟要發問一下

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

但隨時會新增圖片  

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

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

請教一下各位大大>"<

register313

回復 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

感謝 register313 的回覆!!!!