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 3.退出设计模式，点击工作表中单元格就显示图库中该单元格内容为文件名的jpg图片（假设所有图片已保存在F:\图库）
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024