以下代码在每个单元格都插入所有照片,只需在一个单元格插入一张就行，如何修改

考试加油站

1. <font size="5"><b>
   
2. </b></font>

复制代码

以下代码在每个单元格都插入所有照片,只需在一个单元格插入一张就行，如何修改

1. Sub 批插MNT照片常002()
   
2. 
   
3.     With ActiveSheet
   
4.         ii = Sheets("新型目录").Range("N65536").End(xlUp).Row
   
5.         brr = Sheets("插入通用MNT张照片").[A1].CurrentRegion
   
6.         For i = 2 To UBound(brr)    '3列4行图片●●●●●●●●●●●●●●●●●●●●●●●●●●●
   
7.             For k = 1 To UBound(brr, 2)    '3列4行图片●●●●●●●●●●●●●●●●●●●●●●●●●●●
   
8.                 Sheets("插入通用MNT张照片").Activate
   
9.                 Cells(i, k).Activate
   
10. 
    
11.                 For tt = 2 To ii
    
12.                     FilPath = Sheets("新型目录").Cells(tt, 14)
    
13. 
    
14.                     On Error Resume Next
    
15.                     If Dir(FilPath) <> "" Then
    
16.                         Set rng = .Cells(i, k)
    
17.                         .Cells(i, k).Activate
    
18.                         .Pictures.Insert(FilPath).Select
    
19.                         With Selection
    
20.                             .ShapeRange.LockAspectRatio = msoFalse
    
21.                             .Top = Cells(i, k).Top + 15
    
22.                             .Left = Cells(i, k).Left + 15
    
23.                             .Width = Cells(i, k).Width - 15
    
24.                             .Height = Cells(i, k).Height - 15
    
25.                         End With
    
26.                     End If
    
27.                 Next
    
28.             Next
    
29.         Next
    
30.     End With
    
31. 
    
32. End Sub
    

复制代码