【求助】根据题号显示对应题目的图片求助大神

54583792

做了一个题库根据第二个表里的题库，随机抽出8道题的表格，想在第二个表里每个题目插入图片，然后根据题库表里的A列的序号在第一张表里出现相应的图片。

在线等大神

活在理想的世界

下面是自动插入图片的标准代码，但请取消你的合并单元格。
如果你的表格还是这么不规范神也没有办法插到想要的位置。

1. Sub D()
   
2. Dim JPG As Shape
   
3. Dim I, K As Integer
   
4. Dim 路径 As String
   
5. Dim A As Range
   
6. K = Me.Range("A32767").End(xlUp).Row
   
7. For Each JPG In Me.Shapes
   
8.     If JPG.Type = msoPicture Then
   
9.         JPG.Delete
   
10.     End If
    
11. Next
    
12. 路径 = InputBox("请输入路径")
    
13. On Error Resume Next
    
14. For I = 1 To K Step 3
    
15. Set A = Me.Range("C" & I)
    
16.     Set JPG = Me.Shapes.AddPicture(路径 & A.Value & ".jpg", msoFalse, msoTrue, A.Offset(0, 6).Left, A.Offset(0, 6).Top, A.Offset(0, 6).Width, A.Offset(0, 6).Height)
    
17.     JPG.Placement = xlMoveAndSize
    
18. Next
    
19. End Sub

复制代码