求助VBA显示图片问题

蓝桥玄霜

请仔细核对抄写的代码，初学者常常会抄错的。
建议上传出错的代码和附件看看。

bigqq88237

aman1516 发表于 2019-11-26 00:09
题库中I列对应图片名称就可以了——JPG格式，与图片文件夹内的图片名称对应，详见附件：

能不能选“上一题”“下一题”的时候先把当前显示的图片删除或卸载了，再加载新题的图片？题库大的时候或者反复做题按钮点的次数多的时候，可能会层叠几百张图片。

aman1516

bigqq88237 发表于 2019-12-9 00:41
能不能选“上一题”“下一题”的时候先把当前显示的图片删除或卸载了，再加载新题的图片？题库大的时候或 ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$B$1" Then Exit Sub
   
3. Dim Rng As Range, str1, w, y
   
4. On Error Resume Next
   
5. Application.DisplayAlerts = False
   
6. Dim shp As Shape
   
7. For Each shp In ActiveSheet.Shapes
   
8.     If shp.Left > Range("L1").Left Then shp.Delete
   
9. Next
   
10. Set Rng = Range("M3").MergeArea
    
11. str1 = ThisWorkbook.Path & "\图片文件" & Range("h1") & ".jpg"
    
12. ActiveSheet.Pictures.Insert(str1).Select
    
13. With Selection
    
14.      .ShapeRange.LockAspectRatio = msoFalse
    
15.      .Left = Rng.Left + 2
    
16.      .Top = Rng.Top + 2
    
17.      .Width = Rng.Offset(0, 1).Left - Rng.Left - 2
    
18.      w = Rng.Offset(1, 0).Top
    
19.      y = Rng.Top
    
20.      .Height = w - y - 2
    
21. End With
    
22. Application.DisplayAlerts = True
    
23. End Sub
    

复制代码

bigqq88237

aman1516 发表于 2019-12-9 19:43

受我一拜。。。。

olin12345

蓝桥玄霜 发表于 2019-11-26 08:37
插入图片的代码：改变B1单元格的值即可。

无意中看到这个帖子，感觉很有用，
抄写了老师的代码，k = d.keys 这一句报错了，提示要求对象。

麻烦蓝老师帮忙看看。