返回列表 上一主題 發帖

[發問] 如何匯入不特定的圖片檔

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-3 23:50 | 只看該作者

[發問] 如何匯入不特定的圖片檔

各位大大

如何從資料夾匯入B欄所對應的同名圖片名稱
(B欄名稱為自行填入)

至C欄的儲存格內並符合該儲存格大小?
(若無圖片則跳過直到無圖片檔如#4,#8,#12-#14和#18沒有圖片檔就要跳過)

煩請先進 大大指導
TEST16.rar (713.81 KB)
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2012-5-4 00:28 | 只看該作者
本帖最後由 oobird 於 2012-5-4 00:30 編輯
  1. Private Sub CommandButton1_Click()
  2.     Dim shp As Shape, c As Range
  3.     On Error Resume Next
  4.     For Each shp In ActiveSheet.Shapes
  5.         If Not shp.Type = 12 Then shp.Delete
  6.     Next

  8.     For Each c In Range("b2", [b65536].End(3))
  9.         On Error Resume Next
  10.         c(1, 2).Select
  11.         Set p = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\TEST16\" & c & ".gif")
  12.         With p
  13.             .Name = c.Value
  14.             .Height = c(1, 2).Height
  15.             .Width = c(1, 2).Width
  16.             .Placement = xlMoveAndSize
  17.          End With
  18.     Next

  20. End Sub
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
267  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-5-4 09:02 | 只看該作者
本帖最後由 Hsieh 於 2012-5-4 09:05 編輯

回復 1# luke
  1. Sub Loadimage()
  2. fd = ThisWorkbook.Path & "\TEST16\"
  3. Dim Sp As Shape
  4. For Each Sp In Sheet1.Shapes
  5.   If Sp.Type = 13 Then Sp.Delete
  6. Next
  7. For Each a In Range([B2], [B65536].End(xlUp))
  8. fs = fd & a & ".gif"
  9. If Dir(fs) <> "" Then Sheet1.Shapes.AddPicture fs, msoFalse, msoTrue, a.Offset(, 1).Left, a.Top, a.Offset(, 1).Width, a.Height
  10. Next
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題