返回列表 上一主題 發帖

圖片匯入問題

g93353

帖子
40 
主題
17 
精華
0 
積分
62 
點名
0  
作業系統
windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-27 
最後登錄
2014-11-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-7 14:18 | 只看該作者

圖片匯入問題

不好意思 小弟要發問一下

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

但隨時會新增圖片  

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

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

請教一下各位大大>"<
收藏 分享
WOW

g93353

帖子
40 
主題
17 
精華
0 
積分
62 
點名
0  
作業系統
windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-27 
最後登錄
2014-11-18 
3#
發表於 2012-2-14 10:53 | 只看該作者
感謝 register313 的回覆!!!!
WOW

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題