軟體: 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