VBA如何可以点击单元格显示对应的图片

digdig5

各位大神。
            请问如何点击B列上的单元格显示数字对应的图片。图片的路径可以自由选择，
网上看了很多帖子。但是大神们的代码到我这里就没反应了，是不是这个功能要加什么附件功能之类的请大神们帮忙
                       谢谢

digdig5

自己顶一个。大神们求助啊

liulang0808

使用表格事件来完成
插入图片的案例见此链接
http://club.excelhome.net/forum. ... 313&pid=9148789

digdig5

liulang0808 发表于 2017-6-28 17:36
使用表格事件来完成
插入图片的案例见此链接
http://club.excelhome.net/forum.php?mod=redirect&goto=fi ...

感谢。但是不是想要这种的啊。

liulang0808

digdig5 发表于 2017-6-29 08:36
感谢。但是不是想要这种的啊。

链接提供了插入图片的一种方式，可以参考的
不是跟楼主需求完全吻合的

liulang0808

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column <> 2 Then Exit Sub
   
3.     If Len(Target) = 0 Then Exit Sub
   
4.     Application.ScreenUpdating = False
   
5.     For Each shp In ActiveSheet.Shapes
   
6.         shp.Delete
   
7.     Next shp
   
8.     fpth = ThisWorkbook.Path & ""
   
9. 
   
10.     str1 = fpth & Target.Value & ".jpg"
    
11.     With ActiveSheet
    
12.         If Dir(str1) <> "" Then
    
13.             .Pictures.Insert(str1).Select
    
14.             With Selection
    
15.                 .Top = Target.Top
    
16.                 .Left = Target.Offset(0, 1).Left
    
17.    
    
18.             End With
    
19.         End If
    
20.     End With
    
21.     Application.ScreenUpdating = True
    
22. End Sub
    

复制代码

liulang0808

附件内容供参考吧。。。。。。

digdig5

liulang0808 发表于 2017-6-29 08:50
附件内容供参考吧。。。。。。

感激大神正是想要的 太感激了

digdig5

liulang0808 发表于 2017-6-29 08:50
附件内容供参考吧。。。。。。

感激大神之前等级低不能鲜花。现在给大神补上。再次感激大神的帮助

yn99mxj

谢谢，很想学习一下