在excel中如何用函数将图片动态显示
发布网友
共1个回答
热心网友
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:\图库）
