[問題] VBA 抓取照片中斷問題

[lalalahu (<(￣︶￣)@m)]

軟體: 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://www.ptt.cc/bbs/Office/M.1499912395.A.016.html
→ soyoso: 判斷dir，該路徑和檔案是否回傳空字串，非空字串則執行圖
→ soyoso: 片插入動作
→ soyoso: 或以on error resume next
→ soyoso: 或以on error goto，line的部分可設於插入和調整圖片下方
→ lalalahu: 謝謝S大開釋
推 NeverBaby: IsObject判斷pictures，傳回true就繼續