根据题目描述,D:\图片 文件夹下存放照片,在单元格输入照片名字,想显示对应图片。
操作步骤如下:
在表格中,按ALT+F11键,把以下代码粘贴进去:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes("pic").Select
Selection.ShapeRange.Fill.UserPicture "D:\图片\" & Range("C2").Value & ".jpg"
ActiveCell.Select
End Sub
在工作表中插入一个图形如矩形,在名称框输入pic命名。
在C2输入图片名,调整pic至合适大小。当C2改变时,pic显示对应路径下不同图片。
可以对图片的名称建立“超链接”,选择某张图片,点击“插入--超链接”,选择“原有文件及网页”在“查找范围”里选择你的图片的文件夹对应的图片图标,点击“确定”。
超链接,hyperlink函数可以实现。