提取图片

A66215757

求助1:代码执行前清除原有图片
求助2:如果将图片存放路径改为”\\192.168.0.2\图片文件夹\图片\“无法提取

1. Sub 提取照片()
   
2.     Dim Rng As Range, S As String
   
3.     On Error Resume Next
   
4.     S = Trim(Range("B31"))  '名称单元格
   
5.     Set Rng = Range("A1")  '照片单元格
   
6.     Path = ThisWorkbook.Path & "\图片"           '图片路径
   
7.    
   
8.     With ActiveSheet.Shapes(S)   '移动到指定位置
   
9.         .Left = Rng.Left + 3
   
10.         .Top = Rng.Top + 3
    
11.     End With
    
12.    
    
13.     If Err Then  '注释
    
14.         ActiveSheet.Shapes.AddPicture(Path & S & ".JPG", 1, 1, Rng.Left + 10, Rng.Top + 5, 600, 380).Name = S
    
15.         Err.Clear
    
16.     End If
    
17. End Sub
    

复制代码