作者lalalahu (<(￣︶￣)@m)
看板Office
標題[問題] VBA 抓取照片中斷問題
時間Thu Jul 13 10:19:51 2017
軟體: EXCEL 2010 VBA
請教各位高手，程式碼功能是抓資料夾內的照片依名稱貼上sheet裡
但抓取過程中若有照片名稱或格式不符(或是沒有相對應的照片名稱)，
就會中斷跳出『執行階段錯誤'1004' 無法取得類別 Pictures 的 Insert 屬性』
如要把照片格式名稱不符的檔案跳過，直接繼續執行程式碼抓後面的圖
請教各位前輩該如何修改，感恩
附上程式碼
Sub 批次抓照片()
Dim i, j, k As Integer
For i = 1 To 111 Step 5
For j = 1 To 16 Step 2
If ((Cells(i + 4, j + 1)) <> 0) Then
Cells(i + 4, j + 2).Select
ActiveSheet.Pictures.Insert( _
ThisWorkbook.Path & "\圖片區\" & Cells(i + 4, j + 1) &
".JPG").Select
'抓圖依照檔名
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 81
Selection.ShapeRange.Width = 54#
Selection.ShapeRange.Rotation = 0#
'照片比2吋規格2:3
Else
End If
Next
Next
MsgBox ("結束")
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.168.145.22
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1499912395.A.016.html
1F：→ soyoso: 判斷dir，該路徑和檔案是否回傳空字串，非空字串則執行圖 07/13 10:33
2F：→ soyoso: 片插入動作 07/13 10:34
3F：→ soyoso: 或以on error resume next 07/13 10:34
4F：→ soyoso: 或以on error goto，line的部分可設於插入和調整圖片下方 07/13 10:39
5F：→ lalalahu: 謝謝S大開釋 07/13 12:36
6F：推 NeverBaby: IsObject判斷pictures，傳回true就繼續 07/31 13:30