麻辣家族討論版版 » Excel程式區 » 圖片匯入問題

返回列表下一主題上一主題發帖

圖片匯入問題

中學生 Rank: 2

帖子: 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

　頭銜: 麻辣路人甲

大學生 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欄的欄寬列高(照片的大小)

Sub PHOTO()
ActiveSheet.Columns("C") = ""
Set Sh = ActiveSheet
With Sh
.Pictures.Delete
End With
fs = Dir("D:\TEST\*.jpg")
Do Until fs = ""
R = R + 1
Cells(R, 3) = fs
Cells(R, 2).Select
ActiveSheet.Pictures.Insert("D:\TEST\" & Cells(R, 3)).Select
With Selection
.Top = ActiveSheet.Cells(R, 2).Top + 1
.Left = ActiveSheet.Cells(R, 2).Left + 1
.Width = ActiveSheet.Cells(R, 2).Width - 1
.Height = ActiveSheet.Cells(R, 2).Height - 1
End With
fs = Dir
Loop
End Sub

複製代碼

中學生 Rank: 2

帖子: 40
主題: 17
精華: 0
積分: 62
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-27
最後登錄: 2014-11-18

3^#

發表於 2012-2-14 10:53 | 只看該作者

感謝 register313 的回覆!!!!

WOW

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題