在<em>excel</em>中如何让照片显示在<em>image控件</em

假设所有需要显示的图百片都但在F:\图库\文件夹中，Excel中有度一表中输入知了这些文件名(不含扩展名)，要求：道点击工作表中文件名就显示图片专
1.插入image1控件
2.Alt+F11,将程序粘贴到属本工作表模块中
Private
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strX As String
strX = "F:\图库\" & Selection.Value & ".jpg"
If Dir(strX) = "" Then
Image1.Picture = LoadPicture
Exit Sub
Else 　
Image1.Picture = LoadPicture(strX)
End If 　
End Sub

第一步：你的这个动态的查询表比如在sheet2，原始知资料在sheet1（包括照片，身份证），那么你就要将表道1中带照片的单元格定义名称，比如照片在表1b列，身份证在a列，打开定义名称对话框，定义名称名字比如版为zp，引用位置写入公式=indirect("sheet1!b"&match(sheet2!$f$6,sheet1!$a:$a,0)),确定。
第二步：然后激活你权插入的image，在编辑栏写=zp，这时当你f6单元格的信息发生变化时，图片自动会随着发生相应的变化。
image1.picture=loadpicture("图片地址")

试试这个

本文标签：image控件显示图片(1)excel image控件(1)