返回列表 上一主題 發帖

[發問] 如何將file夾圖檔一次全部帶入excel表格裡

justinbaba

帖子
14 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-10-22 
最後登錄
2018-7-24 
1# 跳轉到 »
發表於 2014-10-31 16:15 | 顯示全部帖子
GBKEE大大 您好~~
好像第二段的執行時會跳出 無法取得 Pic 的 insert 屬性？
不知怎麼解決呢？

TOP

justinbaba

帖子
14 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-10-22 
最後登錄
2018-7-24 
2#
發表於 2014-10-31 16:54 | 顯示全部帖子
GBKEE  大..

我發現到  原來原PO 的第三帖就是接近我想要的功能了..
因為我平常用的就是 類似這樣..

只是想要知道的是否有辦法再增進為

1、可秀出中文檔名

2、該資料夾的圖檔都一次PO上  (這個範例我剛試過.. 不知為何就是無法把 D:\Test 中的全部都丟入 ?? )

3、圖檔屬性 自動變為 "大小位置隨儲存格而變"  
因為這部份如果忘記改的話~~執行了篩選功能後，圖跟原本右方相對應的數值、文字會錯亂
是否有更方便的方式能解決呢？
  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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題