下拉菜单之后动态显示图片

nancy4929

各位大神，我之前在网站里面找到了这个多单元格动态显示文件夹图片的VBA例子，然后自己想把这里面品种那一个改成下拉菜单，可是数据有效性之后就提示错误了，进入调试之后说的是
    If Not Application.Intersect(shp.TopLeftCell, Rng) Is Nothing Then shp.Delete
这句错误424，要求对象，想问问各位大神，是哪里错了？

还有，我想问下这代码里面第三句的“If .Count <> 1”和下面的“For Each shp In Me.Shapes”的shapes指的是什么，麻烦帮我解释下，谢谢。


最后一个问题是，如果我只是想显示出这个文件夹里面的.jpg格式的图片，应该怎么写？

先谢谢大神们~

nancy4929

自己手动顶一顶，各位大大求指导~

nancy4929

再捞一次，各位大神们看看一下T-T

蓝桥玄霜

    If shp.Type = 11 Then If Not Application.Intersect(shp.TopLeftCell, Rng) Is Nothing Then shp.Delete
shp是图形，包括图片，数据有效性的小三角，插入表中的控件等等。
由于数据有效性的小三角没有topleftcell的属性，所以出错。
只插入jpg图片，可修改
fname = Dir(ThisWorkbook.Path & "\" & .Value & "\")
为
fname = Dir(ThisWorkbook.Path & "\" & .Value & ".jpg")

nancy4929

蓝桥玄霜 发表于 2018-7-12 11:21
If shp.Type = 11 Then If Not Application.Intersect(shp.TopLeftCell, Rng) Is Nothing Then shp.Del ...

谢谢大神指导！

不过我之前也有试过把fname = Dir(ThisWorkbook.Path & "\" & .Value & "\")
替换成
fname = Dir(ThisWorkbook.Path & "\" & .Value & ".jpg")
之后，运行是没有反应的，也没提示错误，请问这是为什么？

还有问一个比较小白的问题，我看您之前的代码，很多都是写If shp.Type = 11，这个11是不是就是指代图片？

谢谢