[算表] 插入大量圖片

看板Office作者 (我的熱鍋溶化了你的冰霜)時間12年前 (2013/12/15 02:19), 編輯推噓0(0推 0噓 2→)
留言2則, 2人參與, 最新討論串1/1
軟體: excel 2013 版本: 我想用巨集插入大量圖片 想法是與excel檔放在同一個資料夾的圖片都一起插入並調整一樣大小 目前寫法如下 Sub 巨集3() On Error Resume Next ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\" & "1.jpg").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 85 Selection.ShapeRange.Width = 113 End Sub 但這樣只能插入一張 我想要資料夾不管有幾張 都一起插入 我想到的是或許用for 先偵查同資料夾的jpg檔有幾張 就插入幾次 但檔名的部分就很麻煩 檔名我想用亂數 因為我想要的只是不管怎樣的圖片都能一起插入 請問有辦法嗎 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.34.216.196
→
12/15 09:40, , 1F
dir()+do...loop 試試
12/15 09:40, 1F
→
12/16 13:42, , 2F
12/16 13:42, 2F
‣ 更多 hellk 的文章
文章代碼(AID): #1IhA4Tsh (Office)