[已解决]根据单元格内容显示对应的图片

fightingd

单击单元格(或移动到单元格时),根据单元格内容(图片名称),显示指定目录下对应的图片.
移动后,显示的图片自动消失.

对应关系: 单元格内容 = 目录下的图片名称

   测试文件    Pic.zip (108.6 KB, 下载次数: 116)

2012-10-23 08:07 上传

点击文件名下载附件

,

最佳答案

月排行榜 / 总排行榜

suye1010

2012-10-23 09:30

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     ActiveSheet.Pictures.Delete
   
3.     If Target.Column = 19 And Target <> ""  And Target.count=1 Then
   
4.         With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "" & Target & ".jpg")
   
5.             .Left = Target.Left + Target.Width
   
6.             .Top = Target.Top
   
7.         End With
   
8.     End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     ActiveSheet.Pictures.Delete
   
3.     If Target.Column = 19 And Target <> ""  And Target.count=1 Then
   
4.         With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "" & Target & ".jpg")
   
5.             .Left = Target.Left + Target.Width
   
6.             .Top = Target.Top
   
7.         End With
   
8.     End If
   
9. End Sub

复制代码

fightingd

非常感谢指点，正是想要的效果。

fightingd

有点问题了，，，当在其它范围选择一个以上的单元格，或选择一整行，一整列时，报错？？

suye1010

fightingd 发表于 2012-10-23 10:56
有点问题了，，，当在其它范围选择一个以上的单元格，或选择一整行，一整列时，报错？？

可以加一句 On error resume next 或者看我原帖修改的代码

fightingd

谢谢,问题解决了,结贴.