软件: 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