求助，添加图片的时候，如果电脑文件夹内不存在表格名称的图片，显示图片找不到

冯学军

哪位大神帮我指出是哪里思路不对，初学者虚心求教

小凡、、、

换种思路，dir判断是否存在文件

冯学军

这么简单粗暴吗？

醉眼看尘世

1. Sub 添加图片()
   
2.     On Error Resume Next
   
3.     Dim maxR%
   
4.     Dim img As Picture
   
5.     Dim rng As Range
   
6.     maxR = [b10].End(xlDown).Row
   
7.     If maxR = 16 Then MsgBox "布产单为空！": Exit Sub
   
8.     If maxR > 16 Then
   
9.         maxR = 15
   
10.     Else
    
11.         maxR = maxR
    
12.     End If
    
13.    
    
14.     '清除图片
    
15.     For Each img In Sheet1.Pictures
    
16.         If img.Top >= [a11].Top Then img.Delete
    
17.     Next
    
18.     p = ThisWorkbook.Path & "" & "产品图片"
    
19.     暂无图片 = p & "暂无图片.jpg"
    
20.     Dim PicStr$
    
21.     For i = 11 To maxR
    
22.         图片名称 = p & Range("B" & i).Value & Range("C" & i).Value & ".jpg"
    
23.         If Dir(图片名称) = "" Then PicStr = 暂无图片 Else PicStr = 图片名称
    
24.         With ActiveSheet.Pictures.Insert(PicStr)
    
25.             .ShapeRange.LockAspectRatio = msoFalse
    
26.             .Top = Range("D" & i).Top                          ' 设置上边距
    
27.             .Width = Range("D" & i).Width
    
28.             .Left = Range("D" & i).Left
    
29.             .Height = Range("D" & i).Height
    
30.             .Placement = xlMoveAndSize
    
31.         End With
    
32.     Next i
    
33. End Sub

复制代码