作者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/cn.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