求助VBA显示图片问题

bigqq88237

做了个简单的选择题练习表格，但是不能适应带图的题，哪位大神帮我改改表格，可以使哪道题显示哪道题的图片，十分感谢！


补充内容 (2019-11-25 21:46):
补充一下，就是当B1单元格里的数字是X时，就会引用题库里题号为X的图片名称，在单元格M3里，相对引用文件夹里的图片。而且随着题号的变化，图片随之变化。

蓝桥玄霜

可根据B1单元格值的变化，运用工作表变化事件实现插入图片。
如何插入图片请搜索本论坛。

bigqq88237

。。。。。。。

aman1516

bigqq88237 发表于 2019-11-22 17:23
。。。。。。。

题目与图片作一个对应的ID编号不得了，选择题目时，自动通过ID识别并插入图片
你的系统有点小流氓：
Sub 考试环境()
    On Error Resume Next
    '关闭所有内置工具条
    For Each bar In Application.CommandBars
          bar.Enabled = False
        Next
    Application.DisplayFormulaBar = False
End Sub
Sub 禁用系统关闭按钮()
Dim hWnd As Long, hMenu As Long
Dim iRet As Long
   hWnd = FindWindow("XLMAIN", Application.Caption)
   hMenu = GetSystemMenu(hWnd, 0)
   iRet = DeleteMenu(hMenu, SC_CLOSE, 0)
   iRet = DrawMenuBar(hWnd)
    ActiveWorkbook.Protect Structure:=True, Windows:=True  '保护工作簿窗口
End Sub
Sub 还原系统关闭按钮()
Dim hWnd As Long, hMenu As Long
Dim iRet As Long
   hWnd = FindWindow("XLMAIN", Application.Caption)
   hMenu = GetSystemMenu(hWnd, 1)
   iRet = DrawMenuBar(hWnd)
    ActiveWorkbook.Protect Structure:=False, Windows:=False  '解除保护工作簿窗口
End Sub
这时候只能专心考试，其他工作薄就不要正常操作了么....

bigqq88237

比较急，大神帮帮忙，搜了半天没搜到正确的

bigqq88237

aman1516 发表于 2019-11-22 19:15
题目与图片作一个对应的ID编号不得了，选择题目时，自动通过ID识别并插入图片
你的系统有点小流氓：
Su ...

我是小白，能不能直接告诉我怎么弄。。。。

bigqq88237

蓝桥玄霜 发表于 2019-11-22 11:59
可根据B1单元格值的变化，运用工作表变化事件实现插入图片。
如何插入图片请搜索本论坛。

您就当我是白痴好了，我真的不会。。。。能否帮忙修改一下

aman1516

bigqq88237 发表于 2019-11-25 20:43
我是小白，能不能直接告诉我怎么弄。。。。

题库中I列对应图片名称就可以了——JPG格式，与图片文件夹内的图片名称对应，详见附件：
选择题.rar (166.39 KB, 下载次数: 27)

2019-11-26 00:09 上传

点击文件名下载附件

蓝桥玄霜

插入图片的代码：改变B1单元格的值即可。

bigqq88237

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

k = d.keys 这一句报错了，提示要求对象。。。。