[問題] VBA 抓取照片中斷問題
軟體: 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
→
07/13 10:33, , 1F
07/13 10:33, 1F
→
07/13 10:34, , 2F
07/13 10:34, 2F
→
07/13 10:34, , 3F
07/13 10:34, 3F
→
07/13 10:39, , 4F
07/13 10:39, 4F
→
07/13 12:36, , 5F
07/13 12:36, 5F
推
07/31 13:30, , 6F
07/31 13:30, 6F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
